Help for this page
Select Code to Download
Select
or
download this
$DNA = join(',',grep(/[ACGT]\d[ACGT]\d/,@DNA)); print "$DNA\n";