# replace newlines with commas
$DNA =~ s/\n/,/g;