A viable solution is to use Text::Wrap

use Text::Wrap;
$Text::Wrap::columns = 60;
my $text = "Hello" x 190;

# Unwrapped
print qq($text\n\n);

# Wrapped
print wrap('', '', $text), "\n\n";
[download]