In article <87brod1t5h.fsf_-_@ace.nerimadors.or.jp>,
        jiro@nerimadors.or.jp writes:
> perl -pe 'undef $/; s/\*\s*\*//g;'

  それだと、まず最初の行が読まれてからundef $/;が実行されるので、最初の
行の行末と2行目の行頭に*がある場合は目的の動作にならないですよね。

# perl -pe 'BEGIN{undef $/} s/\*\s*\*//g;'
                                                nide@ics.nara-wu.ac.jp