perl -E'{s//say/e,redo}'