$LIT_TEXT_QUAL = qq{\\$TEXT_QUAL};
$LIT_FIELD_SEP = qq{\\$FIELD_SEP};

$foo =~ /\G$LIT_TEXT_QUAL(.*?)$LIT_TEXT_QUAL[$LIT_FIELD_SEP\n]/xmsgc;