Help for this page

Select Code to Download


  1. or download this
    split(/.{80}/, $data)
  2. or download this
    grep(defined, split(/(.{80})/, $data))
  3. or download this
    my @lines = grep(length, split(/(.{80})/, $data));