next unless ($name,$phone) = $line =~/^\s*([a-zA-Z]+)\s*(\d+)?/;