Select Code to Download

#!/usr/bin/perl

...
$modifiers = "g";
$string =~ s/a/b/$modifiers;
print $string;

#!/usr/bin/perl

...
$replace = "$1";
$string =~ s/a+(b+)a+/$replace/g;
print $string;