Help for this page

Select Code to Download

Select or download this

use strict;
use Algorithm::Diff qw(traverse_sequences);

...
print "$match words matched ($percent_match%)\n";
__END__
18 words matched (90%)