In case there are some wacky characters in $wrong_dir, I'd do: $name =~ /(\Q$wrong_dir\E)(.*)/;
_____________________________________________________
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:??;