replacing words with perl

perl -p -i.bkp -e 's/SCO/Satan' SCO_news