There is at least one point in $\mathbb{R}$ such that the preimage of all of its neighborhoods is uncountable.
You can prove this by covering $\mathbb{R}$ with a sequence of closed intervals of length $1$, picking one with uncountable preimage, and then keep dividing the interval that you are looking at in half and keeping from those halves one that has uncountable preimage.
There is only one such point in $\mathbb{R}$ for which all its neighborhoods have uncountable preimages
Assume that $a,b$ have the property that all their neighborhoods have uncountable preimages. Take $x_1\in\omega_1$ such that $|f(x_0)−a|<1/1$. Then take $x_2>x_1$ such that $|f(x_2)−b|<1/2$, and so on $x_{n+1}>x_n$ with $|f(x_{n+1})−c|<1/n$, where $c$ alternates between $a$ and $b$ depending on the parity of $n$. Note that the property of $a$ and $b$ allows to find each next term every time, since there are only countably many elements $<x_n$ and uncountably many in the preimage of every neighborhood of $a$ and of $b$.
Since $x_n$ is strictly increasing and countably many, they have a limit $\alpha=\cup_n x_n\in\omega_1$. But then $f(\alpha)$ must be arbitrarily close to both $a$ and $b$. Therefore $a=b$.
The value $a$ is taken in a tail of $\omega_1$.
The preimage of $\{x:|x−a|>1/n\}$ must be countable, otherwise we could to the same argument above to find a point in it having all its neighborhoods with uncountable preimages. Therefore the preimage of $\{x\neq a\}$ is a countable union of countable subsets of $\omega_1$. This has an upper bound, $\beta$, the union of all those elements.
All ordinals larger than $\beta$ must be mapped to the complement of $\{x\neq a\}$, i.e. $a$.