Just so I can understand whats going on with the logic, what exactly are these numbers saying:
length $desc <1000 and return $desc;
my $short = substr ($desc, 0, 1000);
--------------------------------
Privacy Software
length $desc <1000 and return $desc;
my $short = substr ($desc, 0, 1000);
--------------------------------
Privacy Software