Is there a built-in way to get user input word-by-word (rather than line-by-line) from STDIN in perl, or do I have to code that myself?