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