Language Basics Perl

print 5 & 4,"\n";       # 101 & 100
print 5 & 0,"\n";       # 101 & 000
print 4 & 0,"\n";       # 100 & 000
print 0 & 4,"\n";       # 000 & 100
print "=" x 10,"\n";    # print 10 equal signs