|Perl: the Markov chain saw|
Hmmm yeah... I should have given some more information:
Names CAN have embeded spaces, and I THINK that the unknown
field always starts with [^A-Z] ...
One case where my solution will not work is a name without
spaces, no prependition (God, I`m starting to like that word :),
and no Unknown field... But I expect there to be more...
I tried your code, dws, but it does not seem to work
(probably because I hadn`t set the prequisitories (sp?)
And hossman, We gave up on the poetry magnets for choosing
last names, it`s now based on quantum mechanics, but if I
were to explain to you, I`d have to... well.. let`s not go
print "profeth still\n" if /bird|devil/;