my @lines = $text =~ /(.{1,$len})\s+/gm;