perl -pi.bak -e "for(<*.txt>) {s/cheese/soup/g}"