Sendmail

Logchop

while (<>) {
        chomp;
        if ( /(\w{3})\s(\d{2})\s(\d{2}:\d{2}:\d{2})\s(\w+)\s(\w+)\[\d+\]/ ) {
                $month = $1;
                $date = $2;
                $time = $3;
                $host = $4;
                $process = $5;
                print "Match $_\n";
                print "mont: $1\
        } else {
                print "No: ".$_."\n";
        }
}