Re^2: Parsing a date time string

[bangor]

Thanks Corion, far more elegant. I made a small adjustment so it could accept the whole string:

sub fix_time {
    my $time = shift;
    $time =~ s/\s(\d:\d\d)$/ 0$1/;
    return $time;
}