use strict;
use warnings;
use autodie;


$/=\3000;
my$i="000";
while(<>){open my $fh, ">:encoding(utf-8)", "input".$i++.".txt";
print $fh $_;
close $fh;}