Here's an interesting and very efficient way to transform each list element, returning the list of those modified copies:
my @nice_words =
apply { s/$EXPLETIVE/[DELETED]/gxms } @words;
That is of course if you are willing to use the not-so well known List::MoreUtils CPAN module.
