$temp_seq =~ s/^($tag_seq)\w{6}(.*)/$1$2/;