$seq = 'ATCGGATCTGGC';
$tag = '___';

$seq =~ s/[ATGC]{2}/$&$tag/;
$seq =~ s/$tag[ATGC]{4}/$&$tag/;