Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print "\$remainder = '$remainder'\n\n";
    
}

QUERY = "SOME QUERY WITH "" (DOUBLE QUOTES)" YEEHA
$prefix    = 'QUERY = '
...
$prefix    = ''
$extracted = '""No Way!""'
$remainder = ' """Way!"""'