$str_date =~ /^\w*\s*\w*\s*(?<month>\w*)\s*(?<day>\d*).*(?<year>\d{4})$/;

##</code><code>##

    my $date = sprintf("%4d%02d%02d", $+{year}, $months{$+{month}}, $+{day});