Help for this page
my $temp_seq = "fooXXXXXXbar"; my $tag_seq = "foo"; ... $temp_seq =~ s/^($tag_seq)\w{6}(.*)/$1$2/; print $temp_seq; # "foobar"
if ($temp_seq =~ /^$tag_seq/) { substr($temp_seq, $+[0], 6) = ''; }