% etags `find . -name '*.p[lm]' -print`

##</code><code>##

M-x Visit Tags Table
M-x Tags-Query-Replace