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