perl -pi.bak -e 's/[^\w\.\t \n]//' <files>