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

print "$shortdesc";