use strict;
use warnings;
use Text::Wrap;

$Text::Wrap::columns = 18;

my $text = <<END;
BTW - I use this for generating multi-line output - tables and such.
END

print wrap("  ", '', $text);