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