Select Code to Download

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

$descr = <>;
while (<>) {
   chop $descr;
   print $descr;
}