are we still not allowed numeric operators (like last time?) Here's my shortest, followed by a rehashing of what i did last time, which is essentially a variation on the sort{$b<=>$a} trick. The lack of \w characters would be more interesting, i think i'll try one if i get some free time today...

#1 (at 35 chars) map{print@_.$";pop@_}@_=($")x ord$/ #2 $$_=~/((((((((((.))))))))))/for$|..ord$/;print map $_.$",sort{chr$b cmp chr$a}grep/\d/&$||$_,keys%::

Update: i have a version with no \w characters which can be found below

In reply to Re: TIMTOWTDI/golf - counting backwards by jynx
in thread TIMTOWTDI/golf - counting backwards by Juerd

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":