Select Code to Download

#!/usr/bin/perl
use strict;
...
00501,0.0000,0.0425,0.0025,0.0875
00544,0.0000,0.0425,0.0025,0.0875
06390,0.0000,0.0425,0.0025,0.0875

D:\Perl\test>test
00501|0.0000|0.0425|0.0025|0.0875
...
06390|0.0000|0.0425|0.0025|0.0875
0.04250000000000000300000000000000 + 0.0450000000000000050000000000000
+0 ?==? 0.08750000000000000800000000000000
False 0.0875 != 0.0875