Select Code to Download

#! perl
use strict;
...
find(sub { push @files, $File::Find::name if /\.lef$/ } , @filtered); 

# access @files as needed