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
[download]

$ 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
[download]

$ 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
[download]

update: although, you might want to see Text::Table, IO::Prompter, Term::Interact and Term::Interact example