my $bigpattern = '(' . join('|',@patterns) . ')';
$b = qr/\Q$bigpattern\E/;  
while (my $inputline = <FILE>) {
   if ($inputline =~ /$b/io) {
         ## Logic goes here
   }
}