A simple substitution should do it.

#! /usr/bin/perl
use strict;
use warnings;

my $data = "ThisIsAVeryLongLine" x 10;

$data =~ s/(\S{80})/$1 /g;
print "$data\n";
[download]