if ($temp_seq =~ /^$tag_seq/) {
    substr($temp_seq, $+[0], 6) = '';
}