Select Code to Download

use strict;
use warnings;
...

my $deserialized = xml2pl($serialized);
print Dumper($deserialized);

<perldata>
 <hashref blessed_package="CGI">
...
                 '.fieldnames' => {},
                 'escape' => '1'
               }, 'CGI' );