$ perl -e 'print "\0foo"'|grep -a foo
foo