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