The /e modifier is not useful here. Remove it. That's what's giving you trouble. If you needed to execute code, then it would be useful. Not here.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;