Select Code to Download

# use an all-perl approach:
opendir( DIR, "." );
...
open  OUT, ">BCfile.name";
print OUT join "", @files;
close OUT;

ls -r *BC*.txt | grep -v Liver | cut -f1 -d. > BCfile.name