Steal from the Perl Power Tools project fold(1). You're probably not interested in the bytewise processing (handled as a special case in a loop to process embedded \b \r and \t) but instead want the if() block that begins if ($Byte_Only) {.