#! /bin/perl -f
# Maps Latin (King James) to pseudo-Voynich (FSG)
# Remove excess spaces:
s/   */ /g
# Map abbreviations:
s/ et /AM/g
s/que /4/g
s/vit /CC/g
s/ex /AK/g
s/it /O/g
s/am /R/g
s/em /DZ/g
s/um /OH/g
s/is /HZ/g
s/us /CG/g
s/e /CC8G/g
s/d /4O/g
s/t /C/g
s/s /OR/g
s/n /P/g
s/ver/F/g
s/er/T/g
s/in/H/g
s/qu/S/g
s/on/4OE/g
# Map single letters:
s/i/G/g
s/a/OE/g
s/u/AE/g
s/e/4OD/g
s/o/8/g
s/n/E/g
s/r/C8G/g
s/p/2/g
s/c/AN/g
s/l/AR/g
s/g/OD/g
s/b/SC8G/g
s/s/TC/g
s/h/4OH/g
s/d/SC/g
s/t/D/g
s/m/TC8G/g
s/f/CCG/g
s/v/8G/g
s/x/A/g
s/z/K/g
# Discard remaining spaces:
s/ //g