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