>perl -e"print 0+'aa'"
0