Select Code to Download

  <quotelist>
    <quotation style="wise" id="q4">
...
      </source>
     </quotation>
  </quotelist>

use warnings;
use strict;
...
print Dumper $result1;
my $result2 = XPath->evaluate( '/quotelist/quotation[id="q5"]/source/t
+ext()', $doc );
print Dumper $result2;