I particularly like this code, posted by Abigail on (I believe) comp.lang.perl.misc:

    perl -wlpe '}{*_=*.}{' <file>
[download]