big long sentance . . . ##

##

use constant POS => 10;

my $str = 'big old long sentance blah blah blah';
my $len;
foreach (split(/\s/,$str)) {
	$len += length;
	print;
	($len % POS) ? print ' ' : print '
';
}

##

##

#inside foreach
	$len += length;
	print;
	if ($len > POS) {        # thanks nlafferty
		 print '
';
		 $len = 0;
	}
	else {
		print ' ';
	}