>perl -wle"$x = '010'; print $x; print $x == 10 ?1:0"
010
1