while (length $description) {
  $f_desc .= "T" . substr($description, 0, 75, '') . "\n";
}