http://www.perlmonks.org?node_id=442643


in reply to Stupid mistakes I repeatedly make

my @array = map { s/regex/replacement/ } @input;

That's why I created the trivial function apply() that later found a home in Tassilo von Parseval's List::MoreUtils.

use List::MoreUtils qw(apply); my @array = apply { s/regex/replacement/ } @input;