local $^I = ".bak"; local @ARGV = ( '/home/antony/perl/l.pl' ); while( <> ) {.....