【Perl】<stdin>の標準関数で漢字を認識させたい

Question

Padreで二次熟語に当てはまる漢字を標準入力で答えさせたいのですが
入力した漢字が間違っていたり、何も入力せずEnterキーを押しただけでも正解と認識されてしまいます。
数字を入力したときだけ間違いが認識されます。

ローマ字で答えさせようとしても同様の結果です。
プログラムを載せるので問題をご指摘される方は是非回答をお願いします

<プログラム>
#二次熟語クイズ
print("初級問題スタート!! \n\n");
&shokyuu1();
print("？に当てはまる漢字を答えてください ==> ");
$kanzi = <stdin>;
print("\n");
if ($kanzi == "敵") {
&seikai1();
} else {
print("不正解です! 答えは「敵」です \n");
print("「天敵」「敵意」「敵視」「匹敵」\n");
$kanzitokuten = $kanzitokuten - 5;
}
sub shokyuu1 {
print(" _______ \n");
print(" | | \n");
print(" | 匹 | \n");
print(" |↓| \n");
print("| | | | \n");
print("| 天 → ？ → 意 | \n");
print("||　|| \n");
print(" | ↓ | \n");
print(" | 視 | \n");
print(" |______| \n\n");
}

Comments

[hentaiman]

座布団一枚持ってって

[退会済みユーザー]

タイトルに至急は必要ですか？

[Zuishin]

解決したなら至急解決済みにしなさい。
他の質問も。

Answer 1

== は数値比較演算子です。文字列は eq です。
それと、タイトルから至急を外してください。
日本ではこのような状況で使うと失礼にあたります。
｢失礼なメール｣を送る人が知らないNG表現

Answer 2

文字列の一致比較は、==じゃなくてeqです。
==だと数値化して比較する。