Help for this page

Select Code to Download


  1. or download this
    s/(.{50,80})(\s+)/$1\n/g
  2. or download this
    #!/usr/bin/env perl -l

...
printf '%10s', $_ for 1 .. 8; print '';
print '1234567890' x 8;
print $multiline_string
  3. or download this
    use open OUT => qw{:encoding(utf8) :std};