Perl：使用Text :: Wrap以每行N个字符编写长字符串

Question

我正在使用Text :: Wrap模块将一个长字符串分成每行60列。代码如下。虽然我得到了明显正确的结果，但我做得对吗？

use Text::Wrap;
$Text::Wrap::columns = 60;

my $str_60 =Text::Wrap::fill( '', '', join '', uc($long_string) );
print $str_60;

由于