apply some operation to complex data structure in perl

use Data::Rmap!

use Data::Rmap ':all';
use HTML::Entities qw/encode_entities_numeric/;

my $foo = {
    text => '<div></div>',
};

rmap_to { $_ = encode_entities_numeric($_) } VALUE, $foo;

use Data::Dumper;
print Dumper($foo);

Published: 2010-11-15(Mon) 00:14