open(FG,"$ARGV[0]") || die &writelog(1,"INFO: processfile_rt: Unable to open log file: $!");
my $str = <FG>;
   while($str =~ /Message dump:((?:(?!Message dump:).)*)/gs)
   {
       print "$1\n";
   }