Give this a try. It utilizes a combination of split and substr to dig out the minutes string piece that you are looking for.

#!/usr/bin/perl -w
use strict;


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


my $minute=substr(((split(/\,/,$string))[1]),3,2);
print "MINUTE: $minute\n";
[download]