my $temp_seq = "fooXXXXXXbar";
my $tag_seq  = "foo";

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

print $temp_seq;   # "foobar"