if ( length( $descr ) <= 2000 ) {
   $descr =~ tr/",//d;  # remove double-quotes and commas
   print $descr;
}
else {
   print "Description is too long (over 2000 characters)\n";
}