my $res = $str =~ s/\d/3/gr;