close (JE);
open (JE, "> $file);
print JE $j;
close (JE);
($/, $\) = @orig;