sub readfile() {
 my($tag1,$tag2) = @_;
 open(FF, "<$fixmessageloc") || die ("Unable to open file: $!: readfile_rt \n");
 my @logarray = <FF>;
 if($debug){&writelog(1,"DEBUG: Entered into readfile_rt: passed ($tag1)($tag2)");}
 foreach(@logarray){
   if(($_ =~ m/35=8/)&&($_ =~ m/$tag1/)){
     if(($debug)&&($datadumperdebug)){&writelog(1,"DEBUG: readfile_rt: found string $_");}
     printf "Found = $_\n";
   }
 }