$/ = ">#W#";   
        my $count = 0 ;
        while(<BOUT>){ 
        $count++ if (m/>/g)  ;
        
        $/="\n";

          while(){}
        $/=">#W#";


        }              
        $/="\n";