I suspect this may have been already done, but without looking at any other replies I get 38 chars.
UPDATE pulled 3 chars off by using $/ instead of "\cJ"... Yowzer! chimpmunk++!

#12345678901234567890123456789012345678
 unshift@a,++$;while$;<ord"\cJ";print@a
 unshift@a,++$;while$;<ord$/;print@a
[download]

Now to see the other solutions... :-)

Yves / DeMerphq
--
When to use Prototypes?