perl -le '$x = false; print length($x); print "x is ".join("-",split//,$x)'