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