my %replace = ("a" => "b", "b" => "a");
s/(a|b)/$replace{$1}/g;