Select Code to Download

#!/usr/bin/perl
use warnings;
...
close DNA;
$genome =~ s/\x0D\x0A//g;
print "$genome\n";