Help for this page
for (my $pos = 1; $pos <= length($sequence); $pos++) { ... ... } ... }
if ($pos == $p1) { ... push @temp, $span; }