while (
   print(STDERR  "[", pos($content), "]"),  # DEBUG
   $content =~ m%pattern%gs
) {
   ...
}