my $nr = split (/\s+/, $_[0]);

##</code><code>##

$str="1:3:4:5";
my $num=split(':',$str);
print "Num:$num";