sub has_alpha
{ my ($string) = @_;

  return unless length $string;

  $string = lc $string;
  my ($start , $stop) = qw/a z/;

  while ($start le $stop)
  { index($string , $start++) != -1 and return 1;
  }
  return;
}