@a = qw[ ased12 frtg Frth zdcs 123 12h awq ]; print for map{ tr[\x00-\x3e][aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ0-9]; $_; } sort map{ tr[aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ0-9][\x00-\x3e]; $_; } @a; ased12 awq frtg Frth zdcs 12h 123