Select Code to Download

 min:sec,frac  e.g. "5:29,11"
 sec,frac      e.g. "29,11"
 sec           e.g. "29"
 ,frac         e.g. ",11"
 min:sec       e.g. "5:29"
 someth. else  e.g. "abc"

#!/usr/bin/perl
use strict;
use warnings;
...

print "$time = $seconds  \n";
}

5:29,11 = 329.11
29,11 = 29.11
29:00 = 1740
...
Data not recognized: abc
Data not recognized: 1abc