use strict;
use warnings;

my $str = 'foo\E**** <- this is a syntax error';

if ("foo" !~ m/\Q$str\E/){
    print "No syntax error\n";
}
__END__
No syntax error