s oohaa ctkseurjogis; #print "$_\n"; s ii rpeehrtlo nisom; #print "$_\n"; +$ -= + split $ +; ; =pod split In scalar context, returns the number of fields found and splits into the @_ array. Use of split in scalar context is deprecated, however, because it clobbers your subroutine argu- ments. $- The number of lines left on the page of the currently selected output channel. Used with formats. (Mnemonic: lines_on_page - lines_printed.) =cut #$\ = $/; do {local $\; print "$- "}, print + splice @ ## ; _ => + $ ---, $ ++ 1 while + $ ---- $ ++ @ _