Select Code to Download

#Block is the chunk of text, word is the 'hidden' word and sep is the 
+number of characters in the text between each word
        my ($block, $sep, $word)=@_;
...
#               print "Now scanning block with $regexp2 and replacemen
+t target $rep\n";
                return $block, $word if eval $ev;

---This is the original text----------------------------------------
m at times; this thread, like that of Ariadne, when once
...
---The ELS 'FNORD' is in capitals---------------------

mattimesthisthreadlikethatoFariadNewhenOnceunRaveleDwillconductonethro
+ughalab