Select Code to Download

#!/usr/bin/perl -w
my $db = '/some/file';
...
}
close DB;
print sort @matches;

$ grep -i -e ^Y db.file | sort