in reply to Y.A.R.M.

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}'
----------------------------------- --the good, the bad and the physi-- -----------------------------------