All pastes #280312 Raw Edit

Untitled

public text v1 · immutable
·published 2006-12-15 20:34 UTC
rendered paste body
#!/usr/bin/perl

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