my @data = $text =~ /foo(.*?)bar/g;
manipulate($_) foreach (@data);


##</code><code>##

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