or download this
my $string = q|
<rpc-reply xmlns="urn:ietf:params:xml:ns:netconf:base:1.0" xmlns:junos
+="http://xml.juniper.net/junos/12.3R9/junos">
...
my @parameters = $vlan->findnodes("./x:vlan-name");
print "found ", scalar @parameters, " parameters\n";
}