"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