Help for this page

Select Code to Download

Select or download this

my @lines;
while (length $_) {
...
    $p=substr($_, 0, 1, '');
  }
}