$_ = "hint int stint"; s/\b(int)\b/$1$1$1/g; print;