お世話になります。

$FORM{'q03'} =~ /^[_A-Za-z]/ or &error('入力エラー','英字以外が含まれています');

としたら出来たような気がするのですがこれで大丈夫でしょうか？