Select Code to Download

my $chars = q{abcde};           # Specify the characters.
my $matchset = "[$chars]";      # Set up a character class.
...
__END__
apple
elmo

my $matchset = "[^$chars]"; # <-- Changed to a negated char class.
...
foreach my $string ( @strings ) {
    print "$_ is pure" if not $string =~ $reg_match; # Disqualify stri
+ngs with illegal chars.
}

package Multiset;

...
my @found = $multi->list_seen();
print "Entries:\n\t@found\n";

ab
    is valid.
...
    is not unique.
Entries:
    ab cd abc bb ac