Select Code to Download

use strict;
use warnings;
...
<node id="504944">
</node>
</thread>

$VAR1 = {
    'node' => {
...
        '504944' => undef
    }
};

$VAR1 = {
    '504942' => {
...
    '504941' => undef,
    '504944' => undef
};