sub fixUTFness { use Data::Visitor::Callback; my $decodeVisitor = Data::Visitor::Callback->new( ignore_return_values => 1, value => sub { utf8::decode($_); return }, ); $decodeVisitor->visit( @_ ); }