Select Code to Download

 
@sorted = sort grep { /^[a-z].*[a-z]$/i and not /-{2,}/ } @orig

{uc($a) cmp uc($b)}