perl-5.40.0
    qq/STRING/

    A double-quoted, interpolated string.

    ダブルクォートされた、リテラル文字列です。

        $_ .= qq
         (*** The previous line contains the naughty word "$1".\n)
                    if /\b(tcl|java|python)\b/i;      # :-)
        $baz = "\n";                # a one-character string