perl -nle' print $. if length==1'