6 if ( $str eq 'EVIL' ) {
7 # Returns A first time, AB second, ABC third ... A-ZA the 27th time.
8 (my $c=substr("A".$Evil,-1))++;
13 if ( $str eq 'EMPTY-STR') {
16 if ( $str eq 'NULL') {
19 if ( $str eq 'LONG-STR') {
22 # Should exceed limit for regex \N bytes in a sequence. Anyway it will if
24 if ( $str eq 'TOO-LONG-STR') {
27 if ($str eq 'MALFORMED') {
31 # Create a malformed in first and second characters.
33 $str =~ s/^(\C\C)\C/$1A/;
40 $^H{charnames} = \&translator;