- What is your OS?
- What is your perl version? (perl -v)
- Did you invoke the script with the required -CS command-line option?
$ perl -CS split2.pl < inputfile
My example was used on UTF-8 encoded files that contained quite a few characters outside of the iso-8895-1 range, so I should have noted the same warnings if my example was seriously flawed.
Is your data secret, or is it sharable, in which case, some of us might want to download it (in a zip) to check.
As you converted my command-line example to a script, maybe it would be a goor idea to show what the script looks like. You might have missed a crucial issue. It might look a bit like this:
use strict;
use warnings;
use autodie;
local $/ = \3000;
my $i = "0000";
while (<>) {
my $fn = "zz" . $i++;
open my $fh, ">:encoding(utf-8)", $fn or die "$fn: $!";
print $fh $_;
close $fh;
}
Enjoy, Have FUN! H.Merijn