my @tags = qw( 1= 2= 3= .. );

my $reg_ex = join( '|', @tags );

open FILE, 'dat.log' || die "$!\n";
while ( <FH> ) {
  print "$_\n" if ( $_ =~ /$reg_ex/s );
}