use Unicode::CharName qw/uname/;
use Unicode::UCD qw/charinfo/;

my $value = <what you are looking at>
my $c;
print "Unicode Charname:\tHexValue:\tCharCode\n";
for (split //, $value) {
  $c = ord($_);
  print uname($c) .":\t" . charinfo($c)->{code} . ":\t$c\n";
}

##</code><code>##

;; I stick my personal libs here:
(setq load-path (cons "~/elisp/" load-path))

;; Some new colors for Font-lock.
(require 'font-lock)

;; This thing is great !
(require 'folding)
(autoload 'folding-mode          "folding" "Folding mode" t)

;; I prefer cperl to the usual perl-mode
(autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t)
(setq cperl-hairy t)
(setq auto-mode-alist (cons '("\\.[Pp][LlMm]\\'" . cperl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.t\\'" . cperl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.pod\\'" . cperl-mode) auto-mode-alist))

##</code><code>##

# Begin a fold mark:

# {{{ A space after the three { is required.
sub folded{ print "This is hidden with folding-mode";}
# }}}

# The  "# }}}" ends the fold mark

##</code><code>##

# Begin a fold mark:

# {{{ A space after the three { is required....

# The  "# }}}" ends the fold mark