# size: 42 * 3 = 126
#23456789_123456789_123456789_123456789_12

# @ARGV = (phrase, guesses)
$g=pop;@x=split//,pop;@s{@x}=(_)x@x;$"="";
while($g){print"@s{@x} $g:";<>=~/./;$s{$&}
=$&;$g-="@x"!~$&;"@s{@x}"=~/_/&&exit}die@x