my @f=();                                    # PJ
while (<DATA>) {
    chomp;
s|([^/]+)|do{$f[$#f+1]=$1,'$f['.$#f.']'}|ge; # PJ
    s|^/|\$h->{|;
    s|/|}{|g;
s|$|} = 1;|;                                 # PJ
#print; print "\n";
    eval;
}