Select Code to Download

use strict;
use warnings;
...
map {s/[^a-z ]//gi} @words;

print join ' ', @words;

program is my This