D:\>perl -we"my $x; print length($x.='')" 0