$_ = "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
## 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