Help for this page
s/(.{50,80})(\s+)/$1\n/g
#!/usr/bin/env perl -l ... printf '%10s', $_ for 1 .. 8; print ''; print '1234567890' x 8; print $multiline_string
use open OUT => qw{:encoding(utf8) :std};