(undef, @list) = split /\s+/, $str;

##</code><code>##

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