#!perl -pl s/./aa.$&^'E>=$\''/geer