Select Code to Download

<border_list>

...
<pair><city>hillesdale</city><city>san mateo</city></pair>

</border_list>

use XML::Twig;

...
# print them out in a human-readable form
map { $_->print } @adj;

  <pair>
    <city>menlo park</city>
...
    <city>atherton</city>
    <city>menlo park</city>
  </pair>

# this routine takes a search text and a list of XML elements and
# searches them for the text
...
    my ($search_text, @data) = @_;
    grep { grep { $_->text eq $search_text } $_->children  } @data;
}

<city>boise</city>

<pair><city>mountain view</city><city>sunnyvale</city></pair>