my @words = split / /, $s;