#!/usr/bin/perl
require 'alib';
&alibnit;
#my($ffn,$fn,$fnp,$fnb,$fne,$rfn,$ffnb)=&fn2all($a);
@aa=&readfile("test.txt");
chomp @aa;
$jj=120;
foreach $a(@aa)
 {
  $b=$a;
  $l=length($b);
  while($l>$jj)
   {
    $m=0;
    $chunk=substr($b,0,$jj-$m);
    #print "new chunk:$chunk\n";
    while($chunk !~/\,$/)
     {
      $m++;
      $chunk=substr($b,0,$jj-$m);
     }
    #print "final chunk:$chunk\n";
    push @out,$chunk;
    $b=substr($b,$jj-$m);
    #print "next while:$b\n";
    $l=length($b);
   }
  push @out,$b;
  print "a:$a\n";
  foreach $o(@out)
   {
    #print "$o\n";
    $cc.=$o;
   }
  print "cc:$cc\n";
  if($cc eq $a)
   {
    print "goo\n";
   }
  foreach $o(@out)
   {
    print "$o\n";
   }
 }