my %mon;
@mon{qw/ jan feb mar apr may jun
    jul aug sep oct nov dec /}= '01'..'12';
s#\w{3} (\w{3}) (\d+) ([\d:]+) (\d+)#$4-$mon{lc $1}-$2 $3#