my $lh_sub = "AA";
my $rh_sub = "BB";
$STR = "AAXXXAA";
$STR =~ s/$lh_sub/$rh_sub/g;
print $STR, "\n";