while ( my $mls = <IN> ) {
    push @res, $mls if $mls =~ /^message=/ .. $mls =~ /^Message Id/;
}