for( split(/[\r\n]+/, $content) ) {
    if(($_ =~ m/35=8/)&&($_ =~ m/$tag1/)&&($_ =~ m/$tag2/)){
     printf $_;
    }elsif(($_ =~ m/35=9/)&&($_ =~ m/$tag1/)) {
     printf $_;
    }
 }