my $oldpath = "/foo/bar/baz";
my @path = split(/\//, $oldpath);
my $newpath = "";
for ($i=0; $i<(@path-1); $i++)
{
     $newpath .= "/".$path[$i]; 
}
print $newpath;