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