$str = aa;
$str =~ /(a)$1/;
print "$&";

##</code><code>##

$str = aa;
$str =~ /(a)\1/;
print "$&";