$ 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)