Sure, not really hard to do, but here is the same version as at the top of the page, updated to work on Win32: (change system('cls') for whatever other clearscreen you have on your system if you don't have a VT100 compatible terminal...)
@m=((31,(15)x8)x8,(31)x9);$m[$c]|=16,!(@a=grep/-?./&!(16+$|*$'&$m[$c+$
+&]
),-18,11,94,-92)?$c=pop@p:${$_=$a[rand@a];s/-?.//;push@p,$c;$m[$c]&=~8
+/$
_;++$u-64?$m[$c+=$&]&=~$_:map$_&=15,@m,$c=$|=1},$|&&9x9999999,system('
+cls'),print"",
map$_%9?($_-$c?$m[$_]&2?_:$":o).($m[$_]&8?"|":_):$/,1..72until$c>70&$|
Removes 2 chars to add 13. Enjoy
J-S