print'-'x17,@t=($/,($")x17)x15,$/,map{$t[$_+ord$']='*'for//,18..20,37}map/\D/g,qw(1 \x02\x0e\xda\xe6 ,JV\x92\x9e\xbc JVt\x92\x9e >nz\xaa >nz nz t \x02 \x08t\xe0 \x08\xe0 t)[-$_,$_>3]for<>,0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).