>perl -wMstrict -le
"use Text::LevenshteinXS;
 ;;
 my $word = 'believe';
 ;;
 for my $check (qw(believe relieve beleive beeliv pelief beehive)) {
   my $d = distance($word, $check);
   print qq{'$word' < $d > '$check'};
   }
"
'believe' < 0 > 'believe'
'believe' < 1 > 'relieve'
'believe' < 2 > 'beleive'
'believe' < 3 > 'beeliv'
'believe' < 3 > 'pelief'
'believe' < 3 > 'beehive'