Help for this page
$str =~ s/(^|\n)[\n\s]*/$1/g; print $str;
AAGTAATCAAGTATTACAAGAAACAAAAATTCAAGTAAATAACAGATAAT ATGTCAAAAGCTGTCGGTATTGATTTAGGTACAACATACTCGTGTGTTGC >YDR256C CTA1 969666 970216 GGGAAGAACTAAGAGATGTTATGGCTCGGAGAGTTTTGAAAAGCGAAATA GATTCGCTGCAAGTTTGTGAAGAAACCATCGACAAGAATTACAAGGTTAT