#!/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";