Help for this page
$a="aaaa"; @a=$a=~m/aa/g; print join ( "-", @a );
aa-aa
$regexp="a{2}"; $a="aaaa"; @a=$a=~m/(?=($regexp))./g; print join ( "-", @a );