@list = (split /\s+/, $str)[1..$#a];