Select Code to Download

use strict;
use warnings;
...
   $ptext ] }};

say $ptext;

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