Select Code to Download

#!/usr/bin/perl

...
my $s = 'earth, wind & fire';
my @out = split /\b/, $s;
print "$_\n" foreach (@out);

foreach (@out) {
        print "$_\n" if ($_ =~ /\w/);
}