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