How can I match strings that don't match a particular pattern in Perl?

Question

I know that it is easy to match anything except a given character using a regular expression.

$text = \"ab ac ad\";
$text =~ s/[^c]*//g; # Match anything, except         


        

Answer 1

you can use index()

$text = "ab ac ad";
print "ac not found" if ( index($text,"ac") == -1 );