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