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