$_ = 123.4567890; tr/0-9/#/; print; __END__ ###.#######