You need to wrap $_[0] in \Q...\E, because if it contains a hyphen or a forward-slash, you'll get unexpected results.
_____________________________________________________
Jeff[japhy]Pinyan:
Perl,
regex,
and perlhacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;