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

##</code><code>##

use Safe;
use strict;
use warnings;

# read the regex file into $code
my $code = do {
  local $/;
  open my($rx), $regex_file;
  <$rx>;
};

# create a sandbox
my $sandbox = Safe->new;

# allow acceptable operators (perldoc Opcode)
$sandbox->permit_only(qw( :base_core :base_orig ));

while (<FILE>) {
  $sandbox->reval($code);
  print;
}