#!/usr/bin/perl -w
$regexfile = shift @argv;
open (FH, $regexfile);
@regexen = <FH>;
close FH;

while (<>)  {
   foreach $regex  (@regexen)   {
      $regex;
   }
}