$res = $str =~ s{ \d+ }{ $& =~ tr//3/cr }xer;

##</code><code>##

$res = $str =~ s{ \d+ }{ 3 x length $& }xer;