in reply to Re^2: $^I why this symbol does not work ?
in thread $^I why this symbol does not work ?

Put file names (not handles) in @ARGV: 

my $new_par = "YI_OU";
local $^I = '';
local @ARGV = 'c:/perl/test/1.txt';
while(<>) {
   s/UI_EM/$newpar/g;
   print;
}

[download]

In Section Seekers of Perl Wisdom