use strict;
use warnings;

use 5.010;

my $ptext = q{"dasj{ah'h'w*jh}wcv'};

say $ptext;

$ptext =
   quotemeta qq{@{ [
   map {
      s{(?x) (?: ^ ["'] | ["'] $ ) }{}g;
      $_;
      }
   $ptext ] }};

say $ptext;

##</code><code>##

"dasj{ah'h'w*jh}wcv'
dasj\{ah\'h\'w\*jh\}wcv