Select Code to Download

use strict;
use warnings;
...

aaagctcggaggggatcccct

perl -e "undef $/; print  join 'nnnnncattccattcattaattaattaatgaatgaatg
+nnnnn', <> =~ /^([tcag]+)$/gm;"  input_file.txt >output_file.txt