while (length($longstring)>45) { my $break = rindex( $longstring, " ", 45 ); print substr( $longstring, 0, $break ), $/; $longstring = substr( $longstring, $break ); } print $longstring;