use Text::Wrap
$Text = "C:\\ACK_DATA\\ar835.dat";
open(IN,$a) || die "cannot open $a for reading: $!";
$Text::Wrap::columns = 80;
print wrap('', '', @Text);