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