Select Code to Download

2014-07-12
2014-07-12 1:00
2014-07-12 01:00

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