$/="\n\n";

open(F, "jk.txt") || die "Err: $?";

my ($i, $j, $jokes)=(1,82,"");

my $tm=time();
my $kk=0;
my @txt;

while(<F>) {
 $txt[$kk]=$_;
 $kk++;
}

my $size=scalar(@txt);

for(0..$size) {
 my ($i,$j)=(rand($size),rand($size));
 my $a=$txt[$i];
 $txt[i]=$txt[j];
 $txt[j]=$a;
}

for(@txt) {
 s/\n/<br>/g;
 s/^<br>//;
 $jokes.="$_\n";
 if($i++>9) {
   $i=1;
    my $fn=sprintf("jk_%2s.inc",$j);
    $fn =~ s/ /0/g;
    open(F2, ">$fn");
     print F2 "<b>Выпуск #",$j,"</b><br>\n$jokes";
    close F2;
   $jokes="";
   $j++;
 }
}

close F;