#1167(海豚氏)の書き込みを引用します:
＞お世話になります。
＞
＞$FORM{'q03'} =~ /^[_A-Za-z]/ or &error('入力エラー','英字以外が含まれています');
＞
＞としたら出来たような気がするのですがこれで大丈夫でしょうか？

ぐは。こっちも間違ってました。

正しくは
$FORM{'q03'} =~ /^[A-Za-z]+$/ or &error('入力エラー','英字以外が含まれています');
です。+が重要。