Select Code to Download

A=>1,  B=>5,  C=>6,  D=>4,  E=>7,  F=>16, G=>10, H=>11,
I=>12, K=>14, L=>13, M=>15, N=>3,  P=>17, Q=>8,  R=>2,
S=>18, T=>19, V=>22, W=>20, Y=>21, Z=>9

NDDDDTSVCLGTRQCSWFAGCTNRTWNSSA 0
VCLGTRQCSWFAGCTNRTWNSSAVPLIGLP 0
...
FLCGNGVYKGFPPKWSGRCGLGYLVPSLTR 0
KGFPPKWSGRCGLGYLVPSLTRYLTLNASQ 0
QSVCMECQGHGERISPKDRCKSCNGRKIVR 1

3 4 4 4 4 19 18 22 6 13 10 19 2 8 6 18 20 16 1 10 6 19 3 2 19 20 3 18 
+18 1
22 6 13 10 19 2 8 6 18 20 16 1 10 6 19 3 2 19 20 3 18 18 1 22 17 13 12
+ 10 13 17
...
16 13 6 10 3 10 22 21 14 10 16 17 17 14 20 18 10 2 6 10 13 10 21 13 22
+ 17 18 13 19 2
14 10 16 17 17 14 20 18 10 2 6 10 13 10 21 13 22 17 18 13 19 2 21 13 1
+9 13 3 1 18 8
8 18 22 6 15 7 6 8 10 11 10 7 2 12 18 17 14 4 2 6 14 18 6 3 10 2 14 12
+ 22 2

$ perl '-M5;%h=map{$_,++$i}split//,"ARNDBCEQZGHILKMFPSTWYV"' -alpe '
  ($_=$F[0])=~s/[A-Z]/$h{$&} /g'
$ perl -alpe '
  ($_=$F[0])=~s/[A-Z]/(index("ARNDBCEQZGHILKMFPSTWYV",$&)+1)." "/ge'

$ echo "ARNDBCEQZGHILKMFPSTWYV" | perl -MSet::IntSpan -ple '
  $_=Set::IntSpan->new([map{ord}split//,$_])->run_list;
  s/\d+/chr$&/eg;s/,//g;$_="[$_]"'