D:\>perl -e "print qq{\x00\x1A\nfoo\nbar\x1A\x00\n}"
 
foo
bar

D:\>perl -e "print qq{\x00\x1A\nfoo\nbar\x1A\x00\n}" |
perl -ne "print if m/foo/"
foo

D:\>