Select Code to Download

use File::Glob qw( bsd_glob );

...
# Output
print("$_\n")
   foreach @matching_files;

use File::Glob qw( bsd_glob );

...
# Output
print
   foreach @matching_lines;

use File::Glob qw( bsd_glob );

...
# Output
print($_->[0], ',', $_->[1], ': ', $_->[2])
   foreach @matches;