$ perl -wle'print "0 but true" eq "0E0" ?1:0' 0