$\+=$_ for<>=~/\d/g;print