This in the FAQ. Please use the search tool to see if your question has already been asked (and answered!) before posting.

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