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

##</code><code>##

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