Select Code to Download

m/^([a-z]([A-Z][a-z])*[A-Z]?|[A-Z]([a-z][A-Z])*[a-z]?)$/

#!/usr/bin/env perl

...
    or
    ($b cmp $a)
}

         a  1
         A  1
...
     ABCdE  0
     ABCDe  0
     ABCDE  0