Help for this page

Select Code to Download


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