foreach my $line (@file) {
  $line =~ s/(.{70}\B{1,10})/$1\n/g);
}