$description =~ s/<(?:[^>'"]*|(['"]).*?\1)*>//gs;
$shortdesc = substr ($description, 0, 270) . "...";

print "$shortdesc";

##</code><code>##

https://drive.google.com/file/d/1ZhXQYI-4fgx5hredv7Z0Tl2sszvN92oV/view?usp=sharing...