100% tested and verified.

use strict;
use warnings;

my $date = 'Jan 19 2007 12:00AM';
my %months = ('Jan'=>'01',
              'Feb'=>'02',
              'Mar'=>'03',
              'Apr'=>'04',
              'May'=>'05',
              'Jun'=>'06',
              'Jul'=>'07',
              'Aug'=>'08',
              'Sep'=>'09',
              'Oct'=>'10',
              'Nov'=>'11',
              'Dec'=>'12');

$date = $1 if($date =~ m{^(\w{3}\s{1}\d{1,2}\s{1}\d{4})});



foreach my $key (%months)
{
    if($date =~ m{^$key})
    {
        $date =~ s{^$key}{$months{$key}};
        last;
    }    
}


$date =~ s{(\d{2})\s(\d{2})\s{1}\d{2}(\d{2})}{$1\/$2\/$3};

print $date;
[download]