Your first regex needs some help: s/^\s*$//mg will remove "lines" that consist of only whitespace.

Your loop fails because using s/// is a poor idea here. If $temp contains any regex characters, you're busted. You want to use the four argument substr().

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

That returns the 75 characters and removes them from $description.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;