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

##</code><code>##

    my ($bibData, $date, $quote, $primary, $sec) = /
        ^([^"]* "[^"]+".*?)
        (\d{4})\.\s+
        ([^\@]+)
        \@([^%]+)
        \%(.*)
        /x;

    $xml->startTag('entry');
    $xml->dataElement(bib     => $bibData);
    $xml->dataElement(date    => $date);
    $xml->dataElement(quote   => $quote);
    $xml->dataElement(primary => $primary);
    $xml->dataElement(sec     => $sec);
    $xml->endTag();

##</code><code>##

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