Try this ;

my $data = main::url_encode($characters->{Data});
# ignore if string has a return character in it
# is not a leaf
${$pos[$depth]} = $data unless ($data =~ m/%0A/);
[download]

poj