$a="aaaa";
@a=$a=~m/aa/g;
print join ( "-", @a );

##</code><code>##

aa-aa

##</code><code>##

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