manipulate($_) for (@{[$text =~ /foo(.*?)bar/g]});