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