say     <<'HERE';
say qq|This\t('"')\tis a double-quote.|;
# my $string      = '\a\s\b';
HERE
    #:say qq|This\t('"')\tis a double-quote.|;
    #:# my $string      = '\a\s\b';
    #: