while (my $line = <$IN>)
{
    # ...
}

##</code><code>##

while (my $line = <$IN>)
{   my $eof = chop( $line );    # This removes last char and saves
    if ( $eof ne "\r" ) { $line .= $eof; }
    if ( $NoWork == 0 ) { print OUTFILE "$line\n"; }

 DoYourWork:

    # ...
}