use Date::Manip;
my $str_date = shift || die "No date!\n"; # almost *any* format
my $date = UnixDate( ParseDate( $str_date ), "%b %e, %Y %r");
$date || die "Could not interpret date: $str_date!\n";
print $date, "\n";