Select Code to Download

use strict;

my $string="01:01:2000,14:01:12,1.584167";
my ($time, $minute) = $string =~ /,(\d\d:(\d\d):\d\d)/g;
print "TIME: $time\nMINUTE: $minute\n";