#!perl -w
use strict;

my $oero = "0E0";
my $zero = "0";
my $foat = 0.0;

print "oero ($oero) true\n" if($oero);
print "oero ($oero) defined\n" if(defined($oero));

print "zero ($zero) true\n" if($zero);
print "zero ($zero) defined\n" if(defined($zero));

print "foat ($zero) true\n" if($foat);
print "foat ($zero) defined\n" if(defined($foat));

print "zero eq oero\n" if ($oero eq $zero);
print "zero == oero\n" if ($oero == $zero);

print "oero+1: ", $oero+1, "\n";
print "oero+zero: ", $oero+$zero, "\n";
print "oero+oero: ", $oero-$oero, "\n";