Select Code to Download

sub hangman {
@w=split//,pop;@w{@w}=("-")x@w;@h=split$","______ | |\n |\n |\n |\n __
+____\n";$d="______\n|  |\n| _O_\n|  |\n| / \\\n|______";while($g<8){p
+rint@h[reverse 0..$g-1],$/,@w{@w},"$/?";$_=<>;chop;$w{$_}?$w{$_}=$_:$
+g++;(join"",values%w)!~/-/&&last}print$g<8?@w:$d
}

hangman("Hangman");

sub hangman {
@w=split//,pop;@w{@w}=("-")x@w;while($g<8){print@w{@w},"$/?";$_=<>;cho
+p;$w{$_}?$w{$_}=$_:$g++;(join"",values%w)!~/-/&&last}$g
}

print hangman("Hangman")<8 ? "Winner!" : "RIP";

sub hangman {
@w=split//,pop;@w{@w}=("-")x@w;while($g<8){print@w{@w},$/;<>=~/./;$w{$
+&}?$w{$&}=$&:$g++;"@w{@w}"!~/-/&&last}$g
}