#!/usr/bin/perl
# "Music Live"
my $str = "12 hr  4  min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr")
{

}
else
{
print "wrong";
}
if($str1[3] eq "min")
{
}
else
{
print "wrong";
}
my @st=split(/\s+/,@str1);
print "\n array ".$st[0];
print "\n array ".@st[1];
print "\n array ".@st[2];
print "\n array ".@st[3];
print "\n array ".@st[4]; 
print "\n str: ".$str."\n";