>>429
こう？

my @matches = $str =~ m{(a[^a]a)\n\n}g;