#!/usr/bin/perl
# "Music Live"
my $str = "12                hr 4 min"; 
my @str1 = split (/\s/, $str);
if($str1[1]=~m/\s/)
{
print "wrong";
}
print "\n array ".$str1[0];
print "\n array ".@str1[1];
print "\n array ".@str1[2];
print "\n array ".@str1[3];
print "\n array ".@str1[4];
print "\n array ".@str1[5];
print "\n array ".@str1[6]; 
my $count  = @str1;
print "\n Count ".$count;
 
print "\n str: ".$str."\n";
}
else
{
print "wrong";
}