my $string = "+[a-z]";
if( '+w' =~ /\Q$string\E/ ){
  print "yes";
}