while($text =~ /(.{0,80})\s+/g) {
	# result in $1
}