Select Code to Download

#!/usr/bin/env perl
use strict;
...

my @names = map { /=(.*)/ } dpath ('/*/*/*[0]')->match ($foo);
print "@names\n";