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

##</code><code>##

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

##</code><code>##

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