Здравствуйте. Подскажите пожалуйста схему для поиска цифр в строке.

Ситуация.
Есть строка типа

piece 478694 world
Нужна схема для определения 478694.

На выходе должно выйти (после удаления участка)

piece world
В редакторе вроде как используются функции Perl.