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