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