还行符死活去不掉,怎么办

还行符死活去不掉,怎么办

>abc
CTCGCACGCACGCACCCAACAACCCCCGTTCTGGCTGGATGGTGGCCGGAGCTCGCGGAGGACTCGAGAT
ATGCATGTGGCGGCACCGAGCATGAGGCAACAACTGCATTACTTGCGGGGAAGGCGCAAGTAGGACACCT
GCATTACTTGCAAACAAGGCGCAAAATTAATAGAAGATCACCATACTTGTGGCTTTCTTGCAAGTCATGC
AGTTGCTGCCTCAAGCTTGCTGCCTCCCTTTGCCAAAGCTATCAGAAAAAACATAAAGTTCTGTTAGTTT
CCCTAAACTTTAAAAACATAAAGTTCTGTTAGTTTCCCTAAACTTTAAAACATGTTCTACAAAATTGATC
TAGAAATGATTGGCTTACTGTGCTAATTTAAAGCAATATAATTACTCGACAACTGCATATGCACATGTTA
GAAGCAAGGCAGTAGAATACTTATGTTTTCATCTACTGGCAGGTAGCAACATGTATAGATATATCACTCT
GAATTGAGTTATGGACCAAACATTAAGAATTGCTCACTTTGTTGGCACATCGCATCTGTGAAATTGCATA
TAAATTTATGTACAGCCAGTGCTCTCNNNNTATGAATTCAAATATTTTGGTGAAAACAGAATTGCTGCTG
TAATAATA

用perl 语言
$seq =~ s/\n//gm;
死活不行
s/\n/dg
s/\n//sg