正則表達式：除去組除外

Question

我需要在正則表達式中刪除除匹配組以外的所有組。一個玩具的例子是：

echo 'spam 123 ham 345 eggs' | perl -pe 's/(\d+)/SOMETHING/g' 

123 345 

什麼perl正則表達式將刪除除匹配的組以外的所有組件？匹配組可以比數字更復雜 - 我可以定義要匹配的組，但組外可以包含任何隨機字符

Answer 1

只需加入所有匹配。我不知道Perl，但是像這樣的東西可能會工作：

$result = join('', $subject =~ m/\s*\d+\s*/g);