$\=$/while s/(.)\1|gfca/\1/?$_++:print|s/$/a/