perl -p -i.bak -e "s/foo/bar/;" $*