perl -pi.bak -e "s/ /_/;" infile.txt