Use of uninitialized value $text in concatenation (.) or string at /usr/share/perl5/Text/WrapI18N.pm line 101, <GEN1> line 5.
substr outside of string at /usr/share/perl5/Text/WrapI18N.pm line 130, <GEN1> line 5.