#!perl -pl $_+=0