--- code2html	2006-05-13 03:17:35.000000000 +0200
+++ code2html.ada_identifiers_fixed	2006-05-13 18:37:57.000000000 +0200
@@ -1,3 +1,5 @@
 #!/usr/bin/perl -w
+use locale;
+#use encoding 'latin1';
 my $vernr = "0.9.1";
 my $monthshort = "Jan";
@@ -1899,5 +1901,4 @@
 
 
-
 # taken from nedit
 # modified by PP
@@ -1968,5 +1969,5 @@
                                               {
                                                 'name'       => 'Identifiers',
-                                                'regex'      => '\\b[a-zA-Z][a-zA-Z0-9_]*\\b',
+                                                'regex'      => '\\b[[:alpha:]](?:_?[^\W_])*\\b',
 					        'style'      => 'identifier',
                                                 'childregex' => []