s/([actg]{6})/...$1.../

##</code><code>##

my ($locus) = /LOCUS\s*(\w+)/;