use Math::BigFloat;

my $x = Math::BigFloat->bzero();
my $y = '0e+1';

print $/, "x is " , $x->bsstr();
print $/, "y is " , $y;

print $/;
print $/, "x + 0 is " , $x + 0;
print $/, "y + 0 is " , $y + 0;

print $/;
print $/, "x is " , ( $x ) ? "true" : "false";
print $/, "y is " , ( $y ) ? "true" : "false";

print $/;
print $/, "x eq 0e+1 is ", ( $x eq '0e+1' )  ? "true" : "false";
print $/, "y eq 0e+1 is ", ( $y eq '0e+1' )  ? "true" : "false";
print $/, "x eq y is ", ( $x eq $y )  ? "true" : "false";


C:\iakobski\perl>test1.pl

x is 0e+1
y is 0e+1

x + 0 is 0
y + 0 is 0

x is false
y is true

x eq 0e+1 is false
y eq 0e+1 is true
x eq y is false