fasta_1line.pl

#!/usr/bin/perl
#
# app to remove trailing newlines from fasta files by Levente Szabadkai
#


use v5.14;

while(<>){
	if (/^>/){
		chomp;
		print "\n$_\n";
	}
	else{
		chomp;
		print;
	}
}