$res = $str =~ s{ \d+ }{ 3 x length $& }xer;