while ($text =~ m/.../g) {
  ...
}