Some documentation, some code modifications to try:
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 + $ ---- $ ++ @
_
In My 1st post (japh) I saw 0-1=1 using $|. Now I see 0-1=0 using $-. You and blazar should write a tutorial on "special properties of special variables".
Snippets of code should be wrapped in
<code> tags not<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).