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