Select Code to Download

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

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

Null char detected in >filename1.txt^@<
Null char detected in >filename2^@.txt<