use strict;
use warnings;

my $s1 = q!/\Q"'[]{}()/!;

print "$s1\n";

##</code><code>##

23:39 >perl 1351_SoPW.pl
/\Q"'[]{}()/

23:46 >

##</code><code>##

use strict;
use warnings;

my $str = 'smth';
my $var = q!/\Q"'[]{}()/ or ! . $str;

print "$var\n";

##</code><code>##

23:52 >perl 1351_SoPW.pl
/\Q"'[]{}()/ or smth

23:52 >