>perl -e "print str2num(num2str(1) . '1') + str2num('.01')"