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