use strict;

open(DATA,"< c:\\temp.txt") || die "Sorry";

while(<DATA>){
if ($_=~s/(^>\s+)//){
print "\n";
}
else
{
	chomp;
	print;
	
}
}