$ cat trajan  | perl -pe 's/\W|\s//gm' |  perl babbage.pl