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

##</code><code>##

-----------------------------------
--the good, the bad and the physi--
-----------------------------------