Good stuff. But I'm pretty sure I've found a little problem. I think you need to buffer the pivot words with a space on each side in order not to mistake a part of a word for a pivot word. For example, the word 'fish' contains 'is' and an error is made.

Zenon Zabinski | zdog | zdog@perlmonk.org