D:\>perl -lwe "my @b=(0,1); for (qw(0E0 1E0)) { print; print qq(Bool:),$b[!!$_]; print qq(0+:),0+$_; print $/; }" 0E0 Bool:1 0+:0 1E0 Bool:1 0+:1