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