my $summary; # = $quake->get( "summary");
#   print $summary;
      while ($summary = $quake->get("summary")) {
        $parser->parse_chunk($summary);
      }

##</code><code>##


    my $summary = $quake->get( "summary");
    print $summary;
     #while ($summary = $quake->get("summary")) {
        $parser->parse($summary);
     #}
     #my $data = $parser->last_chunk();
     #my $dd = $data->get( "dd");
     #print $dd, "\n";

##</code><code>##

C:\Users\JKeys>perl \myperl\quake.pl
# This Quake file created by quake_parsing_9
# Matt Coblentz; Perl version unknown
# For more information, see the USGS website
# Last Updated: 1 17 5 2013, 4:34:55
#

junk after document element at line 1, column 601, byte 601 at C:/strawberry/perl/site/lib/XML/Rules.pm line 745.
<p class="quicksummary"><a href="http://earthquake.usgs.gov/earthquakes/eventpage/usc000hsdj#pager" title="PAGER estimated impact alert level" class="pager-gree
n">PAGER - <strong class="roman">GREEN</strong></a> <a href="http://earthquake.usgs.gov/earthquakes/eventpage/usc000hsdj#shakemap" title="ShakeMap maximum estim
ated intensity" class="mmi-V">ShakeMap - <strong class="roman">V</strong></a> <a href="http://earthquake.usgs.gov/earthquakes/eventpage/usc000hsdj#dyfi" class="
mmi-IV" title="Did You Feel It? maximum reported intensity (5 reports)">DYFI? - <strong class="roman">IV</strong></a></p><dl><dt>Time</dt><dd>2013-06-16 21:39:0
9 UTC</dd><dd>2013-06-16 23:39:09 +02:00 at epicenter</dd><dt>Location</dt><dd>34.491&deg;N 25.087&deg;E</dd><dt>Depth</dt><dd>37.85 km (23.52 mi)</dd></dl>