Or you can use the slightly more longwinded form using alternations that allows $w to start with non-work characters (\b looks at the change between \W to \w not \s and \S):

next if $word =~ /(^|\s)$w(\s|$)/;
[download]

--
integral, resident of freenode's #perl