半角英字のみかチェックする - Perl

何らかの事情により、半角の英語つまりアルファベット(a～z、A～Z)のみかをチェックしたい場合、どのようにしたら良いだろうか？これも正規表現で解決できる。

サンプル

サンプル

;#
;#入力チェック
;#

if( isAlpha('123') ){
  print "アルファベットだけ\n";
}
else{
  print "アルファベット以外\n";
}


#---------------------------------------
#英字のみかチェックする
#---------------------------------------
sub isAlpha{
  my $str = shift || return(undef);

  #-- 英字のみか --#
  if( $str =~ /^[a-zA-Z]{1,}$/ ){
    return(1);
  }
  #-- 英字以外が含まれる --#
  else{
    return(0);
  }
}