Select Code to Download

#!/usr/bin/perl

...
     printf ("$_\n");
   }
}

$ perl t.pl fix.log
8=FIX.4.29=034435=849=EXLINK_COMPLEX56=COMPLEX_EXLINK50=COMPLEXGATE57=
+DBL9991134=552=20060223-11:18:3
31=L6096=0.000011=Order53:1:114069346814=0.000017=1118339840020=031=0.
+0000000032=0.000037=132710014138=1.000039=054=155=Tester60=20060223-1
+1:18:33150=0151=1.0000109=Test23=0167=FUT200=200603207=Test
40=144=0.0000000010=026
$

sub readfile() {
 my($tag1,$tag2) = @_;
...
     printf "Found = $_\n";
   }
 }