#!/usr/bin/perl
# "Music Live"
my $str = "12         hr 4 min"; 
my @str1 = split (/\s/, $str);
print "\n array ".@str1[0];
print "\n array ".@str1[1];
print "\n array ".@str1[2];
print "\n array ".@str1[3];
 
my $count  = @str1;
print "\n Count ".$count;
 
print "\n str: ".$str."\n";
 
if ( $str1[1] eq "hr")
{
print "Hour";
#if ($str =~ m/[\d]\s[hr][\d\d][min]\s\([partial]\)?/)
#if ($str =~ m/(\d|\d\d)\s[hr]\s+(\d\d)\s+[min]/)
#if ($str =~ m/(\d|\d\d)\s\w\s(\d|\d\d)\s\w/)
if ($str =~ m/(\d|\d\d)\s[hr]\s(\d|\d\d)\s[min]/)
{
                print "\nHour data captured";
}
print "\nAfter IF"; 
 
}elsif($str1[1] eq "min")
{
print "Minute";
}