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