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

##</code><code>##

2001/08/28 10:15:54 AM auser

08/28/01 10:15:53     auser
   PostalCode.24th floor. MachineID,  printer keeps jamming (A person's Name). Lexmark optra s1250.


2001/08/28 10:17:57 AM auser
PostalCode.24th floor. MachineID,  printer keeps jamming (A person's Name). Lexmark optra s1250.

##</code><code>##

T floor. MachineID,  printer keeps jamming (A person's Name). Lexmark optra s125
T0.   2001/08/28 10:17:57 AM auser PostalCode.24th floor. MachineID,  printer kee
Tps jamming (A person's Name). Lexmark optra s1250.
T