if ($mods=~s/g//g) {
  $buffer=~s/(?$mods)$expr1/$expr2/g;
} else {
  $buffer=~s/(?$mods)$expr1/$expr2/;
}