Hi, I Feel this is better.

use strict;

open(DATA,"< c:\\temp.txt") || die "Sorry";
print grep (!/^>/,<DATA>);
[download]

As usual there are lot of ways to do the same in perl
Thanks
Sasi Kumar Oops sorry i miss understood Here its goes

use strict;

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

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