Your regex there is safe, unless you've turned on use re 'eval'. Perl stops you from executing regexes with evaluations in them from variables.

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