while ($output =~ m/...re.../sg) {
  ... process block ...
}