my $STR = "AAXXXAA";
$STR =~ s/AA/BB/g;