#!/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.
 }
}

##</code><code>##

Found=23 06/02/23 11:19:34:750 Received FIX message
Found=8=FIX.4.29=024935=D34=743=N49=COMPLEX_EXLINK50=DBL9991456=EXLINK_COMPLEX57=COMPLEXGATE97=N52=20060223-11:18:4660=20060223-11:18:46207=XEUR55=XEURFDAX0F2006H200=20060340=259=044=58681=L60954=111=Order58:1:1140693526109=DBL9991421=238=1167=FUT10=096

##</code><code>##

Message dump:
8=TEST.4.29=038435=849=TEST56=TEST50=COMPLEXGATE57=DBL9991134=852=20060223-11:19:351=L6096=0.000011=Order58:1:114069352614=0.000017=11193
54210120=031=0.0000000032=0.000037=132710015138=1.000039=854=155=XEURFDAX0F2006H58=EUREX Error PRICE60=20060223-11:19:34150=8151=1.0000109=D
BL9991463=0167=TEST=200603207=TEST=244=5868.0000000010=101
25 06/02/23 11:20:00:765 Received TEST message
Message dump:
8=TEST.4.29=025135=D34=843=N49=TEST50=TEST=TEST57=COMPLEXGATE97=N52=20060223-11:19:1060=20060223-11:19:10207=XEUR55=XEURFDAX0F2006H
200=20060340=259=044=5867.51=L60954=111=Order63:1:1140693551109=DBL9991421=238=1167=FUT10=166
26 06/02/23 11:20:01:500 Sent TEST Message
Message dump: