or download this
sub p{print@_}$p="ITRS ZMNSGDQ ODQK GZBJDQ";$p=~y:ZA-Y:A-Z:;@a=split
//,$p;@k=map{/\w/?'*':$_}@a;Z:until($v){p"$/\$$t: ",@k,$/;$n=int(rand
...
){$t-=100;p"Vowel costs \$100$/";$n=0}$c=0;for($i=0;$i<@a;$i++){if($g
eq$a[$i]){$t+=$n;$c++;$k[$i]=$a[$i]}}p"$c $g\'s.$/";$v++if join("",@k
)eq$p}p@k,$/;if($v){p"Congrats, "}else{p"Wrong, "}p"win \$$t$/"