in reply to Print to file options
use strict; use warnings; use Text::Wrap; $Text::Wrap::columns = 11; my $list = 'abcd efghi jkl mnop qrst uvwxyz'; print wrap('', '', $list); print "\n"; __END__ abcd efghi jkl mnop qrst uvwxyz [download]