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