our $single_string_re = qr/
    (?:
	"
	(?:[^\\"]+|\\[^"]|\\")*
	"
    )
/x;