$xpath =~ s{/[^/]+$}{};

##</code><code>##

my @temp = split('/', $xpath);
$xpath = join('/',@temp[0..$#temp-1]);

##</code><code>##

$xpath = substr($xpath,0,rindex($xpath,'/'));