See Perl6::Form and Text::Wrap and Text::Autoformat
$ perl -lne " use Perl6::Form; print form q{{IIIIIIIIIIIIIIII}}, $_ " A really long string that I want to add to the awesome menu system A really long string that I want to add to the awesome menu system
$ perl -lne " use Text::Wrap qw/ wrap $columns /; $columns = 16; print + wrap(q//,q//,$_); " A really long string that I want to add to the awesome menu system A really long string that I want to add to the awesome menu system ^Z
$ perl -lne " use Text::Autoformat; print autoformat $_, {qw{ left 1 r +ight 17 }} " A really long string that I want to add to the awesome menu system A really long string that I want to add to the awesome menu system ^Z
update: although, you might want to see Text::Table, IO::Prompter, Term::Interact and Term::Interact example
In reply to Re: How to split a string based on length or word boundary
by Anonymous Monk
in thread How to split a string based on length or word boundary
by bcarroll
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |