$ perl -wle '$_ = "abaca"; @a = /(?=(a.a))/g; print "@a"'
aba aca