seek (JE, 0, 0);
print JE $j;
close (JE);
($/, $\) = @orig;