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