#!/usr/bin/perl

my $file = shift;
open (LOG, "<$file");
my $tag1 = "11=Order53:1:1140693468";
@logarray=<LOG>;
foreach(@logarray){
   if(($_=~ m/35=8/)&&($_ =~ m/$tag1/)){
     printf ("$_\n");
   }
}