Help for this page
while (<FILE1>) { do $regex_file; print; }
use Safe; use strict; ... $sandbox->reval($code); print; }