#! /bin/perl -f
# remove all spaces:
s/ //g
# Pad line with #s
s/$/\#\#\#\#\#\#\#\#/g
# Insert dice throws after each character:
s/\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)/\11\22\33\40\52\61\70\83/g
# Now do the substitutions. Use J instead of FSG 2 for now:
s/e[01]/A/g
s/e[23]/A_/g
#
s/i0/_T/g
s/i[123]/T/g
#
s/t[03]/_SC/g
s/t[12]/SC/g
#
s/a0/OE_/g
s/a1/_OE/g
s/a2/_OE_/g
s/a3/OE/g
#
s/s[12]/_O/g
s/s[03]/O/g
#
s/u[0-3]/DA/g
#
s/n[01]/R_/g
s/n[23]/R/g
#
s/o[02]/E_/g
s/o[13]/E/g
#
s/r[03]/8A/g
s/r1/_8A/g
s/r2/8A_/g
#
s/m[1]/_TC/g
s/m[023]/TC/g
#
s/d[012]/TC8A_/g
s/d[3]/_TC8A_/g
#
s/c[0-3]/N_/g
#
s/l[0-3]/M_/g
#
s/v[123]/SC8A_/g
s/v[0]/_SC8A_/g
#
s/p[123]/S/g
s/p[0]/_S/g
#
s/b[23]/_J/g
s/b[01]/J/g
#
s/g[0-3]/_4O/g
#
s/q[123]/HA/g
s/q0/HA_/g
#
s/h[0-3]/DT8A_/g
#
s/f[0-3]/DC8A_/g
#
s/x[12]/_8/g
s/x[03]/8/g
#
s/z[01]/_P/g
s/z[23]/P/g
# Remove padding:
s/\#[0-3]//g
s/\#//g
# Replace J by 2:
s/J/2/g
# Replace underscores by blanks:
s/__*/ /g
# Reduce isolated letters:
s/ M / AM /g
s/ N / AN /g
s/ A / AR /g
s/ 8 / 8G /g
s/ E / AE /g
s/ T / TCG /g
s/ O / OEC /g
s/ S / POE /g
# Change final A into G:
s/A /G /g
# Remove line-leading and line-trailing blanks:
s/^  *//g
s/  *$//g
s/A$/G/g