#! /usr/bin/gawk -f
# Last edited on 1999-02-01 16:25:15 by stolfi

# Maps words containing EVA invalid chars [*?%] to a single "?"

(NF != 1) { printf "line %d: bad record\n", FNR > "/dev/stderr"; exit 1; }

/[*?%]/{print "?"; next}

//{print;}