Select Code to Download

syslog before the following command:
Oct  7 08:30:01 deneb sendmail[13183]: [ID 801593 mail.info] g97CU1r13
+183: from=
...
Oct
Oct

#!/usr/bin/perl -w

...
my @line = split(" ",$_);
print "$line[0]\n";
$_ = '';