Help for this page
use strict; use warnings; ... aaagctcggaggggatcccct
perl -e "undef $/; print join 'nnnnncattccattcattaattaattaatgaatgaatg +nnnnn', <> =~ /^([tcag]+)$/gm;" input_file.txt >output_file.txt