my @sorted_list = sort { tl($a) cmp tl($b) } @list;

sub tl {
    return shift =~
        tr  / .,\-;:!?"'`_#$%&*+\/|=@\\^~()<>[]{}0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz
            / -~/r;
}