perl -p -i.bak -w -e 's/dude/Johnny5/g' myinfo.txt