c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(pp);
 ;;
 for my $word (qw(Fool Foot Tool Toot Foal)) {
   my $diff = 'Fool' ^ $word;
   print qq{'$word': }, pp $diff;
   print qq{'Fool' and '$word' differ by 1 char}
     if 1 == $diff =~ tr/\x00//c;
   }
"
'Fool': "\0\0\0\0"
'Foot': "\0\0\0\30"
'Fool' and 'Foot' differ by 1 char
'Tool': "\22\0\0\0"
'Fool' and 'Tool' differ by 1 char
'Toot': "\22\0\0\30"
'Foal': "\0\0\16\0"
'Fool' and 'Foal' differ by 1 char