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;
    }