Help for this page

Select Code to Download


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