my @messages = /AAAAAA(.*?)BBBBBB/sgm;
    foreach (@messages) {
        print "$_\n";
    }