Select Code to Download

<root>
 <foo x="5">
...
  baz("world")
 )
)

$xml = <<'*END*';
<doc>
...
    ]
);
# prints the addresses, returns nothing

<doc>
 <person>
...
  </phones>
 </person>
</doc>

sub {
 if (exists $_[1]->{id} and $_[1]->{id}+0 > 0) {
...
  return address => "$_[1]->{street}, $_[1]->{city} ($_[1]->{country})
+"
 }
}