my $new_par = "YI_OU";
open MYFILE,"c:/perl/test/1.txt" or die "cannot open file:$!";
local $^I = '';
local @ARGV = MYFILE;
while(<>){
	s/UI_EM/$new_par/g;
    print;
}