Select Code to Download

            if ($key =~ /^[a-zA-Z]\z/) {

            if (  $key =~ /^[a-z]\z/
               || $key =~ /^[A-Z]\z/ && $flux !~ /[a-z]\z/
            ) {

A2990_duA_1
A2990_du_1
...
LXP_01
LXP_02
...