+ my $lhs_utf8 = decode_utf8($lhs);
+ my $rhs_utf8 = decode_utf8($rhs_utf8);
+
+ $lhs_utf8 =~ s/^i (heard|think) //i;
+ $lhs_utf8 =~ s/^some(one|1|body) said //i;
+ $lhs_utf8 =~ s/\s+/ /g;
+
+ for my $temp ($lhs_utf8,$rhs_utf8 ) {
+ if ($temp =~ /([^[:print:]])/ or $temp =~ /(\N{U+FFFD})/) {
+ &status("statement: illegal character '$1' ".ord($1).".");
+ &performAddressedReply(
+ "i'm not going to learn illegal characters");
+ return;
+ }