Select Code to Download

sub parse_datetime($)
{
 $_ =~ /(\d\d\d\d)-(\d\d)-(\d\d) (\d\d):(\d\d)/;
 return($1, $2, $3, $4, $5);
}

sub parse_datetime($)
{
...
 $s =~ /(\d\d\d\d)-(\d\d)-(\d\d) (\d\d):(\d\d)/;
 return($1, $2, $3, $4, $5);
}