Select Code to Download

use strict;
use warnings;
...
my $xml = XMLin($file);

print Dumper($xml);

$VAR1 = {
          'levels' => {
...
                          }
                   }
        };