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