$a = 'aa';
$a =~ s/a/b/;
print $a