for (...) {
   my ($re, $g) = @$_;
   my @matches = ($g ? /$re/g : /$re/);
   ...
}