Select Code to Download

(my $adj = $1) =~ s/\d/3/g;  # No parentheses needed.
($res = $str) =~ s{ (\d+) }{ ($adj = $1) =~ s/\d/3/g; $adj }xe;  # Par
+entheses only needed in the outer substitution.