sub filter {
  local($str)=@_;
  local($newstr,$pname,$pdesc);
  foreach (split("\n",$str)) {
    if(/^\s*\t(.*)/) {
      $pdesc.=" $1";
    }
    if(/^[^\t\S]*(\S+)\s*\-\s*(.*)/) {
      if($pname) {
       $newstr.="<dt>$pname</dt><dd>$pdesc</dd>\n";
      }
      $pname=$1;
      $pdesc=$2;
    }
  }
  $newstr.="<dt>$pname</dt><dd>$pdesc</dd>\n";
  $str="<small><dl><dt><strong>Parameters</strong></dt><dd></dd>\n".$newstr;
  $str.="</dl></small>\n";
  return $str;
}
