perl -i.orig -p -e "s/\W+/?/g;" <yourfile>