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