$str = "aaaaa\nbbbbb\nccccc\nddddd\naaaaa\nddddd\neeeee\n";
@a = $str =~ /(aaaaa(?:(?:(?!aaaaa).)*))/gs;
print "1 : $a[0]\n 2 : $a[1]\n";