my $regexp = shift;
  my $text = shift;

  open RE, $regexp;
  while(<RE>) { chomp; push @re, $_ }
  close RE;

  open TXT, $text;
  while(<TXT>) {
     for my $re (@re) {
         print if m!$re!
     }
  }
  close TXT