Select Code to Download

#!/usr/bin/perl

...
$the_time = $val;

if ($the_time) { print "$the_time\n" } else { print "error\n" }

#!/usr/bin/perl

...
    $val = shift;
    $val = ($val =~ /^(\d{2}):(\d{2}) (am|pm)$/) ? "$1:$2 $3" : 1;
}