my @messages;
my $inmessage = 0; # 0 false, 1 true

while ( <FILE> ) {
   s/\r\n$/\n/ ;

   if ( $inmessage) {
      push $_, @messages;
   }

   if ( m/Message Dump:.*/ ) {
      # we set $inmessage to 1 if 0, or 0 if 1
      $inmessage = abs( $inmessage -1 ) ;
}