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

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;
[download]