Select Code to Download

while ($seq = $seqIn_obj->next_seq){
...

    push(@sequence,$temp_seq);
}

?($temp_seq =~ s/^$tag_seq/*/i){/w,6};