my $vars = $node->{vars}; my $decoded = $node->{vars}; $decoded =~ tr/;=//d; $decoded =~ s/%(..)/chr hex $1/ge; #length($decoded)/length($vars); #$node [length $decoded, length $vars, length($vars)/length($decoded), length($decoded)/length($vars)]