Select Code to Download

#!/usr/bin/perl -w
use strict;
...

m|\[(\d*)/(\D*)/(\d*):(\d*:\d*:\d*) [^\]]*\]|;
print "$3-$months{$2}-$1 $4";

#!/usr/bin/perl -w
use strict;
...
$_ = ParseDate($_);
s/://g;             # Strip the colons for MySQL
print;