($text =~/foo(*.?)bar/g)
manipulate ($1);
while ($text =~/\Gfoo(*.?)bar/g) {
   manipulate ($1)
}