I haven't tried it, but CPAN has Data::Diver, created by tye, or, if you don't like the (absence of a) license, you can create your own function as mentioned in Re: Replacment for Data::Diver due missing license.