Help for this page
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-- -----------------------------------