my @patterns; 
open( my $fh, "input-file.txt") or die "Cannot open input file:$!"; 
while( my $line = <$fh> ) { 
   chomp( $line ); 
   push( @patterns, qr/\b$line\b/ ); 
}

close($fh);