I wrote a quick program today to filter a list of email addresses out of an old email that had been forwarded a couple times. The program itself is very simple, but it took me about 15 minutes. Most of that time was digging up the proper commands for reading in the input.

I think it's mostly because I haven't written any new Perl code in about 2 years. I need to find an excuse to write more Perl so I'm not so rusty when I need.

#!/usr/bin/perl
use IO::Handle;

open (INPUT, ")
{
        chomp $email;
        $email =~ s/^ *?>> +?(.+?),.*$/$1/;
        print "$email; ";       
}

close (INPUT);