Select Code to Download

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

use Safe;
use strict;
...
  $sandbox->reval($code);
  print;
}