my $var;
my @parts = grep length, split m#/#, $input;
for ($var = $VAR1; @parts && $var; $var = $var->{shift @parts}) {}

use Data::Dumper;
print Dumper $var;
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.