my @group = grep /\w/,
    split /(...)/, "ACTGACTGATGCATGCATGCATGCCGTACGTACGTACGT";
print join("+", @group), $/;

# ACT+GAC+TGA+TGC+ATG+CAT+GCA+TGC+CGT+ACG+TAC+GTA+CGT