my $res = $str =~ s{ (\d+) }{ $1 =~ s/(\d)/3/gr }xer;

##</code><code>##

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