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