@a = split( /\s+/, $i)
  if ($i =~ /^[a-z]/i);