Help for this page

Select Code to Download


  1. or download this
    local $/ = \10;  # Easier to visualize than 80.
print "$_\n" while <DATA>;
__DATA__
abcdefghijklm
ABCDEFGHIJKLM
  2. or download this
    abcdefghij
klm
ABCDEF
GHIJKLM
  3. or download this
    abcdefghij
klm
ABCDEFGHIJ
KLM
  4. or download this
    my $wrap_len = 10;

...
__DATA__
abcdefghijklm
ABCDEFGHIJKLM