perl -lpe '}{*_=*.}{' file