半角チェック

メールアドレス欄の入力が半角であるかどうかをチェックすべく、

unless ( $str =~ /[0-9]+/ ) { &error; }

等と書いたが機能しない。というか半角だろうが全角だろうがエラー表示してしまう。
仕方ないので取り敢えず黙らせておいて、半角入力を促すメッセージを付け足す。