#!perl -pl $_&=ccnn x y!#!/!