#!/usr/bin/perl

open FN, ">>$ARGV[0]";
while (<STDIN>) {
 if ($_=~/From:/) {
        $fromline = $_;
        $fromline =~ s/^From: "?.*"? <(.*)>$/$1/i;
        print FN "$fromline";
 }
}
close FN;