in reply to Reading Files
perl -MData::Dumper -e 'print Dumper split /\s+/, shift' "do cat fr"
my @words = split/\s+/, $word;
Yes, like that if your input is split's default arugment $_. Or in your case:
my @words = split/\s+/,$word;
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (476 votes). Check out past polls.