my $date = 'Wednesday, May 20, 2009 2:09 PM';
my ($yday) = $date =~ /(\d+)/;