$/="\n\n";

open(F, "Minds") || die "Err: $?";

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

while(<F>) {
 s/\n/<br>/g;
 s/^<br>//;
 $jokes.="$_\n\n";
 if($i++>9) {
   $i=1;
    my $fn=sprintf("Minds_%2s.inc",$j);
    $fn =~ s/ /0/g;
    open(F2, ">$fn");
     print F2 "$jokes";
    close F2;
   $jokes="";
   $j++;
 }
}

close F;