I love sending email to my friends, especially one liners of obfuscated perl; it sparks so many responses, not least of all because half of them can't code!

I thought I'd take Perl approach and script it.

Now I get unexpected e-mails from lots of pals, I am now writing a program to chart people's responses and their phrases: "Write-once" is a good one, "Please stop sending these" is another.

$h="/home/frank/.mail";map{open(++$i,$_)or die}("$h/inbox","${h}.p");
@c=<2>;@a=map{m/<((\.|\w)+@(\.|\w)+\.[a-z.]+)>/gi}<1>;
($c,$_)=(@c[@c*rand],@a[@a*rand]);open(M,"|mail $_")? print M:die
[download]

-- Brother Frankus.