#!perl -pl $_|=0