...
$a =~ s/foo/bar/g;
...
$b =~ s/xxx/yyy/g;
...