#!/usr/bin/perl
open(MYFILE, "log.log");
while (<MYFILE>){
 s/\s+$//;
 if (/Message\sdump:/) {
 my $nextLine = <MYFILE>;
 $nextLine =~ s/\s+$//;
 print "Found=$nextLine\n";
 # do stuff with the next line here.
 }
}