Select Code to Download

$foo = qq{^snafu^|^foobar^\n};

...
         /xms;
$TEXT_QUAL = $1;
$FIELD_SEP = $2;

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

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

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

$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;