Cause I don't know anything about  \b in a regexp, I came along with this:

perl -e '$_="*I do not know* any _perl_ish sentence";while (/(\*|_)(.*
+?)(\1)/sg){print join q[ ],$1,$2,$3}'
[download]

-----------------------------------
--the good, the bad and the physi--
-----------------------------------
[download]