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