Help for this page
if(/^10/){ print OUT "\n"; }
print OUT "\n" if /^10/;
print OUT "$_\n";
while(<DATA>){ chomp; print OUT "\n" if /^10/; print OUT "$_\n"; }