Select Code to Download

use strict;
use XML::Simple;
...
*END*

print Dumper($data);

$VAR1 = {
          'othertag' => '  ahoj  ',
          'subtag' => ''
        };