Select Code to Download

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

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

$seq = 'A-C-G--CTGGC';