or download this
my $line
= "Fri May 29 18:29:57.357 2009 Morocco Standard Time INFO: pid 32
+16 tid 1724: 170: 132192: apricocot Native Server: recvd AA_BIN_MSG_V
+ER_CHG";
...
# Made timestamp lexical, you might not want that.
print my $timestamp = $1;
}