Select Code to Download

#!/usr/bin/perl -l
use strict;
...
my @files = grep /^foo(?!bar)/, glob("foo*");

print for @files;