in reply to Contiguous characters BLAST

Just initialize the loop with
my $i = $contiguous_characters_length - 1

[download]
instead of 0.

In Section Seekers of Perl Wisdom