sub break_lines{
  my $text = shift;
  my $maxlength = 80;
  my @commentlines = split(/\r?\n/,$text);
  for my $line(@commentlines){
    if(length($line) > $maxlength){
      my $index = rindex($line,' ',$maxlength);
      if($index != -1){
        $line = substr($line,0,$index)."\n".substr($line,$index+1);
      }
      else{
        $line = substr($line,0,$maxlength)."\n".substr($line,$maxlength+1);
      }
    }
  }
  $text = join("\n",@commentlines);
}