#!/usr/bin/perl

use strict;
use warnings;
my @tags = ("8=","9=","35=","49=","56=","50=","57=",
            "34=","52=","91=","11=","14=","17=","20=",
            "31=","32=","37=","38=","39=","54=","55=",
            "60=","50=","51=","98=","109=","163=","167=",
            "200=","207=","40=","44=","113=","56=","10="
            );
open(FH, "test.log")||die("Unable to open log file: $! \n");
while (<FH>) {
  if($_ =~ any of the tags in array) {
     printf $fulltag;
  }
}