[0] Perl> print fmod( $_, 100 ) for 12300, 12301, 12399, .00001;;
0
1
99
1e-005