#!perl -naF.*\h|
$F[$_].=$"for/\b\d+/g;print@F