local $_ = $string;
local %count;
s/([ACGT])/$count{$1}++;$1/ge;