$!/usr/bin/perl

use strict;
use warnings;
use List::Util qw(first);

open(LOG, "LogFilename") or die "Unable to open logfile:$!\n";
while(<LOG>){
        print if/\btest1.txt\b/i;
}
close(LOG);