fortune/split-mail.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/perl

open MAIL, "titlez";
open NEW, ">new-mail";
while (<MAIL>)
	{
	@verbs = split ", ", $_;
	foreach (@verbs)
		{
		s/\"//g;
		print NEW "$_\n";
		}
	}
close MAIL;
close NEW;