Using a date module to do such a straight-forward reformatting?? That's a bit like converting your text from English to German and then back again in order to get rid of your dangling participles just because you have such a module and you know it can be told to not dangle when doing the German-to-English step.

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#
[download]