sub name_matching_xpath {
    my ($xpath) = @_;

    return join '/',
        map { /^([a-z0-9:-]+)(.*)$/i ? "*[name() = '$1']$2" : $_; } split '/',
        $xpath;
}