#!/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;