in reply to Re: Changing ASCII collating sequence for sort
in thread Changing ASCII collating sequence for sort

This neatened it up a bit ...
my @sorted_list = sort { tl($a) cmp tl($b) } @list; sub tl { return shift =~ tr / .,\-;:!?"'`_#$%&*+\/|=@\\^~()<>[]{}0123456789AaBbCcDdEeF +fGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz / -~/r; }