while (<FILE1>) {
  do $regex_file;
  print;
}