use strict;
use warnings;
binmode STDOUT;
my @strs = ("filename1.txt\0", "filename2\0.txt", "filename3.txt");

/\0/ && ((print "Null char detected in >$_<"), print "\n") for @strs;