Help for this page
Select Code to Download
Select
or
download this
my $x; @out_list = map { ($x = $_) =~ s/foo(.*?)bar/$1 baz/; $x } @in_list;
Select
or
download this
my @subst = map { s/\s+/_/g } @list;