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