Add some notes.

But in a disclaimer you may get unexpected results if the input contains
accented letters and/or combining characters. We're blaming the
specification.
(Or lack thereof).

1 files changed, 4 insertions, 0 deletions

diff --git a/challenge-094/abigail/perl/ch-1.pl b/challenge-094/abigail/perl/ch-1.pl
index bccd80afaa..c2fd0ddf8a 100644
--- a/challenge-094/abigail/perl/ch-1.pl
+++ b/challenge-094/abigail/perl/ch-1.pl
@@ -19,6 +19,10 @@ while (<>) {
     foreach my $word (/"([^"]+)"/g) {
         #
         # Normalize each word: split into characters, sort them, join them.
+        # Note that we're splitting on characters, not graphemes, nor
+        # do we normalize the input. This may lead to unexpected results
+        # when using accented letters and/or combining characters. But
+        # that's what you get when using poor specifications.
         #
         my $normalized = join "" => sort split // => $word;
         push @{$anagrams {$normalized}} => $word;