my(undef, $ppath, $element) = $path =~ /((.*)\/)?(.*)/;
$ppath = "" if !defined $ppath;
#warn "path='$path', ppath='$ppath', element='$element'";
my(undef, $ppath, $element) = $path =~ /((.*)\/)?(.*)/;
$ppath = "" if !defined $ppath;
#warn "path='$path', ppath='$ppath', element='$element'";