$ 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