Help for this page

Select Code to Download

Select or download this

$a="aaaa";
$a=~m/(aa)(?{push @a, $1})(?!)/;
print join ( "-", @a );