Lucky hit after one day with my newest search program:
strtol.pl: 109.43 strokes (ok):
$^+=$^%1e3*(9x(3*y/dbl/W/-4*/e/))||/te|W/.vec(crypt(DjcSj30,$_),12,4).e./y/}$_=$^;{s/\B(?=(...)*$)/,/gA 108 almost certainly exists, maybe even a 107. -- I wouldn't quite call it "mark-and-sweep", it's more like "nuke-and-pave" garbage collection :-) Matthias Neeracher in comp.lang.perl about perl garbage collection
