Here is the code which i have tried.

 
#!/usr/bin/perl -w
use strict;
my $FH;
local $SIG{ALRM} = sub {
    die "Timeout no data received\n";
    
};
open ($FH, '<', "file1") or die "cant open file to read file$!.\n";
alarm 5;
while (<$FH>){
    if ($_ =~ m/any string/i){
        print "$_\n";
    alarm 0;
    } 
}

close ($FH);
[download]