Select Code to Download

#!/your/perl/here
use strict;
...
    or
    $a cmp $b
}

A => 1
B => 1
...
AXY => 1
AXZ => 1
AYW => 1