Or:  s/^($tag_seq)\w{6}/$1/
Or (requires 5.10 due to use of \K):  s{ \A $tag_seq \K \w{6} }{}xms
Or (requires 5.10 due to use of \K):  s{ \A \Q$tag_seq\E \K \w{6} }{}xms
Or...