tie @lines, 'Tie::File', 'file' or die ...;
        for (@lines) {
          # Do your thing, only for lines that match this regex, or are records that need to be changed.
        }
        untie @lines;