Re: Modify File in Place

local $^I = q{};
local @ARGV = ('E:/Remitrac/PDD/rmtd07110/Transmit/712531.dat');

while (<>) {
if(/^04/){
my $aux = (split/,/)[7];
$aux=~ s/^0+//;
print;
}
}

Can not do in place edit without backup error? Also I want this
script to edit the variable as defined above and leave all other
records in the file with the existing file name.

.