perl -MText::LevenshteinXS -e '
$s1 = 'GGAAG'; 
$s2 = 'GAAGA'; 
$diff = distance($s1,$s2); 
print "$diff\n";'