Help for this page

Select Code to Download

Select or download this

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

Select or download this

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