Select Code to Download

# All "R" data files
my @data_r = glob "*R.fa";
# All "P" data files
my @data_p = glob "*P.fa";

my @base_data = map substr($_, 0, length($_) - 4), @data_r;