$_ = "hint int stint"; s/(int)/$1$1$1/g; print; #### hintintint intintint stintintint #### $_ = "hint int stint"; s/int/$&$&$&/g; print; #### $_ = "hint int stint"; s/\b(int)\b/$1$1$1/g; print; #### hint intintint stint