Select Code to Download

<booklist>
   <book type="technical">
...
      <isbn>Book3ISBN</isbn>
   </book>
</booklist>

use XML::Parser;

...
# serialize the structure
use Data::Dumper;
print Dumper( $tree );

$VAR1 = [
...
'
          ]
        ];