#! /bin/perl -f
# Maps the most popular glyphs to single letters
# Discard ordinary blanks:
s/ //g
# Map line, paragraph, and word breaks to blanks:
s@(_)@ @g
s@(//)@ @g
s@(=)@ @g
s/   */ /g
# Any other garbage goes to "?":
s/([^)]*[^)a-z][^)]*)/\?/g
# Now the glyphs:
s/(qo)/W/g
s/(o)/Y/g
s/(t)/T/g
s/(tc)/D/g
s/(tcc)/J/g
s/(s)/S/g
s/(sc)/Z/g
s/(scc)/X/g
s/(b)/A/g
s/(e)/U/g
s/(r)/I/g
s/(z)/O/g
s/(g)/E/g
s/(bg)/Æ/g
s/([dh])/C/g
s/([dh]c)/G/g
s/([dh]cc)/Q/g
s/([dh]z)/F/g
s/([dh]zc)/V/g
s/([pf])/@/g
s/([pf]z)/\#/g
s/([pf]zc)/\$/g
s/(qoe)/Ñ/g
s/(qor)/P/g
s/(oe)/H/g
s/(or)/B/g
s/(ae)/L/g
s/(am)/M/g
s/(an)/N/g
s/(ar)/R/g
s/(ak)/K/g
#Anything else is a program error:
s/([^)]*)/\*/g