Select Code to Download

use strict;
use warnings;
...
/var/www/data/misc
/var/logs
/var/logs/data

$VAR1 = {
          'var' => {
...
                               }
                   }
        };

perl -MData::Dumper
    -ne'END{print Dumper$t}chomp;$p=\$t;$p=\($$p->{$_})for/[^\/]+/g'

perl -MData::Dumper
    -nlE'END{say Dumper$t}$p=\$t;$p=\($$p->{$_})for/[^\/]+/g'