Select Code to Download

$n=4; 
print $n." -- ".(--$n||'no more'),".\n" while $n;
...
1 -- 1.
0 -- no more.

$n=4; print $n." -- ",(--$n||'no more'),".\n" while $n;
                    #^--- is a comma now!
...
2 -- 1.
1 -- no more.

use B::Concise; 
sub sample { $n=4; print $n." -- ".(--$n||'no more'),".\n" while $n; }
+ 
...
j  <@> leave K*
k  <1> leavesub[1 ref] K/REFC,1