perl -i.bk -pe 's/[^[:ascii:]]//g;' file