while(<MYFILE>){
    s/ORA3=\w+/ORA3=0/;
    print COPYFILE $_;
}