I would use positive lookahead with capturing:

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

Abigail