if(/^10/){ print OUT "\n"; } #### print OUT "\n" if /^10/; #### print OUT "$_\n"; #### while(){ chomp; print OUT "\n" if /^10/; print OUT "$_\n"; }