#!/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);