my $xpath = 'BoringNode[1]/InterestingNode[@InterestingAttribute="outgrabe"]/AnotherBoringNode[5]';
$xpath =~ s|\/(.*?)$||;
print $xpath . "\n";

##</code><code>##

BoringNode[1]/InterestingNode[@InterestingAttribute="outgrabe"]