Select Code to Download

my $string = "some unsafe chars";

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

my $string = "some unsafe chars";
...

.... =~ /$temp/;