Select Code to Download

for (my $pos = 1; $pos <= length($sequence); $pos++) {
    ...
...
    }
    ...
}

if ($pos == $p1)
{
...

    push @temp, $span;
}