#1158(水原麗名とも呼ばれる人氏)の書き込みを引用します:
大変ありがとうございました。
おかげさまで、平仮名以外はエラーを表示することが出来ました。

＞$line =~ /^[A-Za-z]$/ or &error("英字以外が含まれています");
英字以外をエラー表示するが以前出来ましたと書き込んだのですが、
今一度入力してみたら、全ての文字が弾かれてしまうみたいで
何を入力してもエラーメッセージが表示されてしまいました。
色々やってみたのですがだめでした。
もし宜しかったら御願い致します。