Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...

</Service>
</Servicelist>

$VAR1 = {
          'B7a' => [
                   {
...
                   }
                 ]
        };