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