写一个函数 参数是一个字符串，返回字符串中的英文字母的个数。

#!perl -w

  print "please input the String:\n";
  my $data = ;
  chomp($data);
 
  &ABC($data);
 
  sub ABC
  {       
    chomp(@_);
     my ($str) = @_;
     my $i;
     my $count=0;
     my $lent = length($str);  
    for ( $i=0;$i<=$lent; $i++)
    {    
        my $str_current = substr($str,$i,1);   
        chomp($str_current); 
        if ($str_current =~ /[a-zA-Z]/)
        {
         $count++;
         }     
     } 
     print "the total is ::::::$count\n";
 }