Re^2: How can I read and print lines that has only one word from a file

Or alternatively, being a little more accomodating:

while (<>)
{
     print if (/^\s*\S+\s*$/);
}
[download]

You can call this with either one file, or as many as you like. The double-angle-brackets just read in anything from @ARGV. Further, it looks for a single group of "non-space" characters. This includes things with punctuation and such.

Comment on Re^2: How can I read and print lines that has only one word from a file Select or Download Code