Select Code to Download

# slurp in file into a string
$/=''; $DNA = <FILE>; 
# remove \n at end
chomp($DNA);

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

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

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