Select Code to Download

use HTML::Entities;
my($text) = "Kren’s 89th birthday";
print encode_entities($text), $/;

Kren’s 89th birthday

$event{'desc'} =~ s/’/\&\#39\;/g;
$event{'desc'} =~ s/–/-/g;
...
$event{'desc'} =~ s/'/'/g;
$event{'desc'} =~ s/“/"/g;
$event{'desc'} =~ s/”/"/g;