my $rx = qr/" (?: [\\]{2} | [\\]" | [\\][a-z] | [^\\"\n\r] ) * "/x;