my $prefix = ''; # undef is valid as well
return (\$prefix, IO::File->new($path, '<:bytes'),
        sub { $_ =~ /^1;\s*$/ ? 0 : 1 }, undef);