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