Select Code to Download

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

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