Select Code to Download

    my ($bibData, $quote, $primary, $sec) = /
        ^([^"]* "[^"]+"[^"]*)
...
        \@([^%]+)
        \%(.*)
        /x;

    my ($bibData, $date, $quote, $primary, $sec) = /
        ^([^"]* "[^"]+".*?)
...
    $xml->dataElement(primary => $primary);
    $xml->dataElement(sec     => $sec);
    $xml->endTag();

"Big Brother."  Review of Orwell's Novel 1984.  Nov. 2011.  "Tough sit
+uation." @tricky %unparsable.