Program Repair Shop

86

`Don't take two steps forward and one step back`

A brief digression:

        $file = join '', <FILE>;

Here <FILE> forces Perl to split up the file into lines
Then you throw away all the work you just forced it to do
Better:

        { local $/;
          $file = <FILE>;
        }

Copyright © 2002 M. J. Dominus