Here's a version for you (preserving its behavior) that'll work on Unix and Win32.

$_=('%#(/@*(((@!./((%)@+%),@(!#+%)@'.(($^O^'`.*).dn')eq'-}}@@W\\'?
'#/.{o|~{':'o$%-`(*"'))^'@@@@``][\`@@@\@@[`{@[@`@@@@@[~@@@[O\\^[';`$_`
[download]