perl -wlpe '}{*_=*.' filename