Help for this page

Select Code to Download


  1. or download this
    use HTML::Entities;
my($text) = "Kren’s 89th birthday";
print encode_entities($text), $/;
  2. or download this
    Kren’s 89th birthday
  3. or download this
    $event{'desc'} =~ s/’/\&\#39\;/g;
$event{'desc'} =~ s/–/-/g;
...
$event{'desc'} =~ s/'/'/g;
$event{'desc'} =~ s/“/"/g;
$event{'desc'} =~ s/”/"/g;