# replace line endings with commata
$DNA =~ s/\n/,/;