It depends what you want. If you just want to make sure that the string can't match a regex, you can use the !~ operator, or you can make a regex like:

if ($string =~ /\A(?:(?!regex).)*\z/s) {
  # doesn't contain regex anywhere
}
[download]

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