Here's another way to do it: perl -ne 'print if s/\d+$//'.

Why search when you can replace?

Note that that could leave trailing whitespace; to get rid of that, use s/\s*\d+$// instead.