Help for this page

Select Code to Download

Select or download this

### WRONG ###
while (<BIG>) {
...
open OUT, ">outfile_" .$i++;
while (<BIG>) {
  if ( m/^\$\n$/ ) {