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