for %f in (*.*) do perl -pi.bak -e "s/this/that/" %f & del %f.bak