[chris@localhost perl]$ perl -e '$foo = q{\0}; $bar = chr(0); print "match!\n" if $foo eq $bar;'

##</code><code>##

[chris@localhost perl]$ perl -e '$foo = q{\0}; $bar = chr(0); print "match!\n" if $foo == $bar;'
match!

##</code><code>##

[chris@localhost perl]$ perl -e '$foo = qq{\0}; $bar = chr(0); print "match!\n" if $foo eq $bar;'
match!