use Text::Wrap;
my $rows = split("\n", fill('','', $content););