>perl -e "print 1 . '1' + '.01'" 11.01