#!/usr/bin/perl
# "Music Live"
my $str = "12            hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
{
print "wrong";
}
else
{
print "\n First ".$st[0];
print "\n Second ".@st[1];
print "\n Third ".@st[2];
print "\n Fourth ".@st[3];
print "\n str: ".$str."\n";
}
}
else
{
print "wrong";
}