my $a1 = '';    # $a1 ist ein leerer String
my $a2 = "0";   # $a2 enthalt die ASCII-"0"
my $a3 = 0;     # $a3 ist eine Zahl
                # $a4 ist undefiniert
my $a5 = " ";   # $a5 ist ein Leerzeichen

print "a1\n" unless ($a1);
print "a2\n" unless ($a2);
print "a3\n" unless ($a3);
print "a4\n" unless ($a4);
print "a5\n" unless ($a5);