in reply to How to avoid using array in concatenating string of multiple lines OR How To Read FASTA

Caveat: Different quotes for different folks! 

perl -ple"BEGIN{$/=qq'\n>'}s[>? Seq (\d+).*$][$1 : ]m; tr[\n.][]d" in 
+>out

[download]
Examine what is said, not who speaks.        The end of an era!
"But you should never overestimate the ingenuity of the sceptics to come up with a counter-argument." -Myles Allen
"Think for yourself!" - Abigail        "Time is a poor substitute for thought"--theorbtwo         "Efficiency is intelligent laziness." -David Dunham
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon
  • Comment on Re: How to avoid using array in concatenating string of multiple lines
  • Download Code

In Section Seekers of Perl Wisdom