my $x = "xabadaluazala";
# aba
# ada
# aza
# ala

use Data::Dumper;


print Dumper($x =~ /(?=(a.a))/g);


#
$VAR1 = 'aba';
$VAR2 = 'ada';
$VAR3 = 'aza';
$VAR4 = 'ala';