use Text::Wrap qw( wrap );

my $file_name = "C:\\ACK_DATA\\ar835.dat";

open(my $fh, $file_name)
   or die "Unable to open input file \"$file_name\": $!\n";

$Text::Wrap::columns = 80;
while (<$fh>) {
   print wrap('', '', $_);
}