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
(9))*100+100;p"Spin:\$$n. Guess letter, or phrase to solve$/";$g=
<STDIN>;chomp($g=uc$g);if(length$g>1){if($g eq$p){$v++}else{$t=0}last
Z}for(@k){if($g eq$_){p"Already used $g$/";next Z}}if($g=~/[AEIOUY]/
){$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$/"