Select Code to Download

use warnings;
use strict;
...
TCAGCTAGCNA
ACTGSCGACAAAA
GTCTGAGTTATTT

use strict;
use warnings;
...

print "in : $in\n";
print "out: $_\n";