#$^I="";

#$^I=".bak";

sub replace(){

        my $para = "$dir/$_[0]";
        open MYFILE,"$para" or die "cannot open file $para $!\n";
        while(<MYFILE>{
                s/UI_EM/$newpar/g;
                print;
        }
}