sub replace {
    local $^I = '';
    local @ARGV = ($para);
    while(<>) {
        s/UI_EM/$newpar/g;
        print;
    }
}