fortune files

1 files changed, 15 insertions, 0 deletions

diff --git a/fortune/split-mail.pl b/fortune/split-mail.pl
new file mode 100755
index 0000000..34447e9
--- /dev/null
+++ b/fortune/split-mail.pl
@@ -0,0 +1,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;