$ 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


##</code><code>##

$ 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
##</code><code>##

$ perl -lne " use Text::Autoformat; print autoformat $_, {qw{ left 1 right 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