$str =~ s/(?=hello kitty )(\d+)/sprintf "%d", $1/e;