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