TheDamians Text::Autoformat is also interesting :)

$ perl -MText::Autoformat -e  " autoformat( {qw/ right 30 all 1 /})" -
very long string right here ya know
^Z
very long string right here ya
know

$ perl -MText::Autoformat -e  " autoformat( {qw/ right 28 all 1 /})" -
very long string right here ya know
^Z
very long string right
here ya know

$ perl -MText::Autoformat -e  " autoformat( {qw/ left 2 right 30 all 1
+ /})" -
very long string right here ya know
^Z
 very long string right here
 ya know

$ perl -MText::Autoformat -e  " autoformat( {qw/ left 2 right 30 all 1
+ /})" -
Address_Line_1 (this is never blank)
Address_Line_2 (this could be blank)
Address_Line_3 (this could be blank)
Address_Line_4 (this is never blank)
^Z
 Address_Line_1 (this is never
 blank) Address_Line_2 (this
 could be blank)
 Address_Line_3 (this could be
 blank) Address_Line_4 (this
 is never blank)
[download]

As is Perl6::Form

$ perl -MPerl6::Form -ne " print form q{{[[[{ 30 }[[[[}} , $_" -
very long string right here ya know
very long string right here ya
know
^Z
[download]