my $x;
@out_list = map { ($x = $_) =~ s/foo(.*?)bar/$1 baz/; $x } @in_list;

##</code><code>##

my @subst = map { s/\s+/_/g } @list;