#!/usr/bin/perl -w

use strict;

my $string="01:01:2000,14:01:12,1.584167";

my $time=(split(/\,/,$string))[1];
print "TIME: $time\n";
my $minute=(split(/:/,$string))[1];
print "MINUTE: $minute\n";