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