Select Code to Download

sub time2mins {
  my $time = shift;
...
    if $time =~ /(\d\d):(\d\d)/;
  return $mins;
}