Help for this page

Select Code to Download

Select or download this

my $newline = 
  "TTTATGCACTCATGTTTAGACATATTTCCTACACCCATATTTGAAGACCA\r"
...
. "TAACTCTTAGTACACATAAGTTTACGTACC\r";

print "\$newline is: $newline\n";  # (this is your debug print)