my $string = "some unsafe chars";

.... =~ /\Q$string\E/;