Maybe you need to look at your logic?
This splits each line based on a space as a delimeter. Therefore the next statement:
if ($word =~ /(\w+)\sUS/)
Says look in $word to see if it is a word followed by a space followed by US, but as $word is only ever a single word then it will never have a space
and hence the if is working as requested.