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