No SSCCE or example data accompanies your latest problem statement, so let me reiterate the good advice offered by hippo here. However, please do not post 80-plus field CSV (if that's what you're dealing with) records; 6-12 reasonably-sized fields and a reasonable length threshold should be enough.

Be that as it may, it's possible to guess at what your problem may be. You do not chomp your records when you read them; there's still a newline at the end of the record. If a record exceeds the limiting number of CSV (?) fields, two characters will be trimmed from the end of the record, and one of them will be the newline. The trimmed, newline-less record is then written to the output file. The next record written to the output file will be effectively concatenated with the previous (newline-less) record, and you have apparent line-wrap.

How to ask better questions using Test::More and sample data

Your $line usually has a Newline at the end, which will be one of the characters that you are trimming.

$line =~ substr( $line, -2, 2, '' ) . "\n"
[download]

Even after fixing the assignment operator (=~ vice =), that doesn't quite work:

Win8 Strawberry 5.8.9.5 (32)  Fri 10/23/2020 18:12:03
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings -MData::Dump=dd
my $line = "foo,bar\n";
$line = substr($line, -2, 2, '') . "\n";
dd $line;
^Z
"r\n\n"
[download]

A slight variation does:

>perl -Mstrict -Mwarnings -MData::Dump=dd
my $line = "foo,bar\n";
$line = substr($line, 0, -2) . "\n";
dd $line;
^Z
"foo,ba\n"
[download]

Update: Another approach is to completely sidestep the newline:

>perl -Mstrict -Mwarnings -MData::Dump=dd
my $line = "foo,bar\n";
substr($line, -3, 2, '');
dd $line;
^Z
"foo,b\n"
[download]

---

Give a man a fish:  <%-{-{-{-<

use strict;
use warnings;
use autodie;
my $simulation = \do{
       'field 01' . ','x79 . 'field 80,' . "\N{LF}"
      .'field 01' . ','x79 . 'field 80,' . "\N{LF}"
};
*OUT = *STDOUT;


my $OFFSET = -2;        # second last chracter (the ',') in $line
my $LENGTH =  2;        # replace 2 charactrers (',' and  \n)
my $REPLACEMENT = '';   # replace specified characters with nothing

open IN, '<', $simulation;
while(<IN>) {
    my $line = $_;
    my $number = () = $line =~ /\,/gi;
    substr($line, $OFFSET, $LENGTH) = ''  if ($number > 79);
    print OUT "$line";
    }    
close OUT;
close IN;
[download]

In this case, you should only delete one character, the last comma. (Change $LENGTH to 1) Why do you think you should delete two characters? Is my simulation wrong? How? It does assume that you are on a *NIX system. On other systems, perl's IO Layers hide the difference. Your loop should be identical.