Select Code to Download

$ perl -e 'use strict;

...
B1255
C1600
B2480

sort { $a->[1] <=> $b->[1] || $b->[0] cmp $a->[0]}