Re^2: Capturing Date/Time

I like FunkyMonk's solution, but here's another:

if ($time =~ /^\w{3}\s\d{2}\,\s\d{4}(\s\d{2}:\d{2}\s\w{2})?/){
    print "Found it\n";
}
[download]

I'm new to regex too, but I thought I'd give a crack at it too.
Cheers!

s;;5776?12321=10609$d=9409:12100$xx;;s;(\d*);push @_,$1;eg;map{print chr(sqrt($_))."\n"} @_;