perl -lpe '}{*_=*.}{' test.txt