Help for this page

Select Code to Download

Select or download this

# untested
use File::Basename;
my @menu_files = map { my $n=basename $_;
                       $n =~ /\.txt$/ ? $n : () } @files;