perl -we s//*_=0/e perl -e s//*_=0/e