use strict;
use warnings;

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

print "$s1\n";