Select Code to Download

#!/usr/bin/perl
use strict;
...

$character = encode_entities(chr(8217));
print "character 8217: $character\n"; # &rsquo