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 + $ ---- $ ++ @
      _
[download]