Re[2]: TPR0,5b: The winner is...

[Karsten Sperling]

Ton Hospel wrote:
TH> #!perl -lp040
TH> $^+=$^%1e3*(9x(3*y/dbl//-4*/e/))||/te|/.vec(crypt(zrQ0W,$_),16,4)%10 
.e./y/}$_=$^;{s/\B(?=(...)*$)/,/g

TH> Of course it should probably be rejected, windows doesn't even have crypt.

At least from 5.6.1 on, (Active)Perl on Windows does have crypt().

- Karsten