perl -le'$^=~s#.#$_=$'\'';print s/.|$//g#ge'

##</code><code>##

perl -le'$^=~s/.$/!print@+/e while$^'

##</code><code>##

perl -le'$_=$^;s||s/.$/!print length/e|ge'