Select Code to Download

#!/usr/bin/perl
use warnings;
...
is distance('ABCGE', 'ABCGE'), 0;
is distance('ABCGE', 'FGCGB'), 3;
is distance('ABCGE', 'JHAGT'), 4;