perl -ne "die q(Bad character on line $.\n) if /[\000-\037]/"