#!perl -pl $_=1