my @orig = ($/, $\);
undef($/);
undef($\);
open (JE, $file) || die "Cannot open $file";
(my $j = <JE>) =~ s/orig/new/g;