Select Code to Download

use File::Find;
use Data::Dumper;
...
print Dumper(\@nod);

sub foo {push @nod, $_ if (lc($_) lt "d")}