perl -pe "s/[\000-\011\013\014\016-\037]//g"
perl -ne "die q(Bad character on line $.\n) if /[\000-\011\013\014\016-\037]/"