my $var1 = "\x00";
my $var2 = "";


print( ($var1 ? "TRUE" : "FALSE") , "\n" );

print( ($var2 ? "TRUE" : "FALSE") , "\n" );
print( ($var1 eq $var2 ? "They are equal" : "They are not equal") , "\n");