Help for this page
$str_date =~ /^\w*\s*\w*\s*(?<month>\w*)\s*(?<day>\d*).*(?<year>\d +{4})$/;
my $date = sprintf("%4d%02d%02d", $+{year}, $months{$+{month}}, $+ +{day});
www.com | www.net | www.org
No recent polls found