$description =~ s/^(\s+)?$//sg;
$description =~ s/\n/ /sg;
while ($description)
{
	$f_desc .= "T".(substr($description,0,75) = "")."\n";
}
print $f_desc;