@out_list=@in_list; s/foo(.*?)bar/$1 baz/ for @in_list;