while ($seq = $seqIn_obj->next_seq){
	
	push(@seq_id,$seq->id);
	$temp_seq = $seq->seq;
		
		while(($id, $tag_seq) = each(%tag_hash)){
		     ?($temp_seq =~ s/^$tag_seq/*/i){/w,6};
		}

        $new_seq = Bio::Seq->new(-seq => $temp_seq, -display_id => $seq->id, -desc => $seq->desc(), -alphabet => $seq->alphabet);

	$fastQ->write_seq($new_seq);

	push(@sequence,$temp_seq);
}

##</code><code>##

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