Help for this page

Select Code to Download

Select or download this

use strict;

...

my @words = split /\s+/, $input;
print "$_\n" foreach @words;