sub fix_time { my $time = shift; $time =~ s/\s(\d:\d\d)$/ 0$1/; return $time; } [download]
In reply to Re^2: Parsing a date time string by bangor in thread Parsing a date time string by bangor