#!/bin/perl

my $SUBS='s/AA/BB/g';
$STR = "AAXXXAA";
$STR =~ $SUBS;
print "$STR\n";