$string = "fooar"
$string =~ s/(foo|bar)/b/g;
print $string;

##</code><code>##

$string = "fooar"
$string =~ s/$_/b/g for (qr/foo/, qr/bar/);
$print $string;