# Shufle Text File
use lib "/rb/cgi-local";

use Tpl;
$Tpl::dbg=0;

my $fn=shift;
my $a=Tpl::Load($fn);
$lines=join("",@$a);
my @txt=split( /---+\n/, $lines );
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;
}


my ($i,$j)=(0,0);
for(@txt) {
 $t.="$_\n";
 $i++;
 
 if($i==9) {
  $i=0;$j++;
  my $ofn=$fn.sprintf("_%2s.inc",$j);
     $ofn =~ s/ /0/g;
  Tpl::Save("$ofn",$s.$t); 
  $t="";
 }
}