while(){ s/ORA3=\w+/ORA3=0/; print COPYFILE $_; } #### $ perl -pi -e's/ORA3=\w+/ORA3=0/' file