Select Code to Download

    <Properties location="SomeCountry"/>
    <!--                              ^   -->

//City[@name=$current_city]/StreetList/Street[@bars!='none']/@name

open cities.xml ;
my $current_city = 'Some City' ;
echo //City[@name=$current_city]/StreetList/Street[@bars!='none']/@nam
+e ;

#!/usr/bin/perl
use warnings;
...
my $quoted_city = quote($current_city);
my @streets = $dom->findnodes('//City[@name=' . $quoted_city . ']/Stre
+etList/Street[@bars!="none"]');
say for map $_->findvalue('@name'), @streets;

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,