Perl module Text::Wrap

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

use Text::Wrap;
use Text::Lorem;

my $lorem = Text::Lorem->new();
my @five_paragraphs = split "\n", $lorem->paragraphs(5);

$Text::Wrap::columns  = 60;
$Text::Wrap::unexpand =  0;
# $Text::Wrap::separator= "\n";

print wrap("      ", "  ", "$_"), "\n" for @five_paragraphs;

      Est est deleniti delectus. Aut minus non autem quos.
  Vel sunt voluptas doloribus dignissimos dolorum.
  Veritatis numquam deleniti consequatur.

      Impedit aspernatur ut reiciendis quae est. Sed error
  in omnis in. Cupiditate ut neque rerum qui iusto.
  Voluptatibus inventore fugit eligendi maxime enim.
  Repellat nesciunt repudiandae quae et voluptas.

      Sed qui assumenda qui iure. Placeat temporibus quo
  sunt placeat. Similique amet non est. Vel quo omnis est
  rerum sapiente velit maxime.

      Cumque enim doloribus similique libero. Nesciunt
  repellendus blanditiis fuga. Dolores voluptatem iste sit
  quasi. Odio odit dolores qui sit est laborum.

      Aut tempora nemo in dicta aut voluptates possimus.
  Facere nisi molestias suscipit et sed. Et aliquid qui
  animi voluptatem veniam voluptatem. Dolor aperiam
  voluptatibus dolor consequatur sapiente debitis ipsa.