DB<104> $a="3851 A A G G T T"
 
  DB<105> $a=~s/([ACGT]) ([ACGT])/$1$2/g
 
  DB<106> p $a
3851 AA GG TT