perlebcdic.pod nits plus improve controls docs
Karl Williamson [Sat, 24 Apr 2010 20:24:25 +0000 (14:24 -0600)]
The controls all now have names, and the part about \c\ has been
corrected.  The table widths have been changed; all recipes have been
tested on the new tables.

pod/perlebcdic.pod

index 28d47b9..f178912 100644 (file)
@@ -70,9 +70,7 @@ characters [a-z] and [A-Z], but there were gaps within each Latin alphabet
 range.
 
 Some IBM EBCDIC character sets may be known by character code set 
-identification numbers (CCSID numbers) or code page numbers.  Leading
-zero digits in CCSID numbers within this document are insignificant.
-E.g. CCSID 0037 may be referred to as 37 in places.
+identification numbers (CCSID numbers) or code page numbers.
 
 Perl can be compiled on platforms that run any of three commonly used EBCDIC
 character sets, listed below.
@@ -97,7 +95,7 @@ They are:
 Character code set ID 0037 is a mapping of the ASCII plus Latin-1 
 characters (i.e. ISO 8859-1) to an EBCDIC set.  0037 is used 
 in North American English locales on the OS/400 operating system 
-that runs on AS/400 computers.  CCSID 37 differs from ISO 8859-1 
+that runs on AS/400 computers.  CCSID 0037 differs from ISO 8859-1 
 in 237 places, in other words they agree on only 19 code point values.
 
 =head2 1047
@@ -216,7 +214,7 @@ you to use different encodings per IO channel.  For example you may use
     open($f, ">:encoding(utf8)", "test.utf8");
     print $f "Hello World!\n";
 
-to get four files containing "Hello World!\n" in ASCII, CP 37 EBCDIC,
+to get four files containing "Hello World!\n" in ASCII, CP 0037 EBCDIC,
 ISO 8859-1 (Latin-1) (in this example identical to ASCII since only ASCII
 characters were printed), and 
 UTF-EBCDIC (in this example identical to normal EBCDIC since only characters
@@ -236,10 +234,11 @@ extensions to ASCII have been labelled with character names roughly
 corresponding to I<The Unicode Standard, Version 3.0> albeit with 
 substitutions such as s/LATIN// and s/VULGAR// in all cases, 
 s/CAPITAL LETTER// in some cases, and s/SMALL LETTER ([A-Z])/\l$1/ 
-in some other cases (the C<charnames> pragma names unfortunately do 
-not list explicit names for the C0 or C1 control characters).  The 
-"names" of the C1 control set (128..159 in ISO 8859-1) listed here are 
-somewhat arbitrary.  The differences between the 0037 and 1047 sets are 
+in some other cases.  The "names" of the controls listed here are 
+the Unicode Version 1 names, except for the few that don't have names, in which
+case the names in the Wikipedia article were used
+(L<http://en.wikipedia.org/wiki/C0_and_C1_control_codes>.
+The differences between the 0037 and 1047 sets are 
 flagged with ***.  The differences between the 1047 and POSIX-BC sets 
 are flagged with ###.  All ord() numbers listed are decimal.  If you 
 would rather see this table listing octal values then run the table 
@@ -252,7 +251,7 @@ work with a pod2_other_format translation) through:
 
 =back
 
-    perl -ne 'if(/(.{33})(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/)' \
+    perl -ne 'if(/(.{43})(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/)' \
      -e '{printf("%s%-9o%-9o%-9o%o\n",$1,$2,$3,$4,$5)}' perlebcdic.pod
 
 If you want to retain the UTF-x code points then in script form you
@@ -266,7 +265,7 @@ might want to write:
 
     open(FH,"<perlebcdic.pod") or die "Could not open perlebcdic.pod: $!";
     while (<FH>) {
-        if (/(.{33})(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\.?(\d*)\s+(\d+)\.?(\d*)/)  {
+        if (/(.{43})(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\.?(\d*)\s+(\d+)\.?(\d*)/)  {
             if ($7 ne '' && $9 ne '') {
                 printf("%s%-9o%-9o%-9o%-9o%-3o.%-5o%-3o.%o\n",$1,$2,$3,$4,$5,$6,$7,$8,$9);
             }
@@ -288,7 +287,7 @@ run the table through:
 
 =back
 
-    perl -ne 'if(/(.{33})(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/)' \
+    perl -ne 'if(/(.{43})(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/)' \
      -e '{printf("%s%-9X%-9X%-9X%X\n",$1,$2,$3,$4,$5)}' perlebcdic.pod
 
 Or, in order to retain the UTF-x code points in hexadecimal:
@@ -301,7 +300,7 @@ Or, in order to retain the UTF-x code points in hexadecimal:
 
     open(FH,"<perlebcdic.pod") or die "Could not open perlebcdic.pod: $!";
     while (<FH>) {
-        if (/(.{33})(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\.?(\d*)\s+(\d+)\.?(\d*)/)  {
+        if (/(.{43})(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\.?(\d*)\s+(\d+)\.?(\d*)/)  {
             if ($7 ne '' && $9 ne '') {
                 printf("%s%-9X%-9X%-9X%-9X%-2X.%-6X%-2X.%X\n",$1,$2,$3,$4,$5,$6,$7,$8,$9);
             }
@@ -315,266 +314,265 @@ Or, in order to retain the UTF-x code points in hexadecimal:
     }
 
 
-                                                                     incomp-  incomp-
-                                 8859-1                              lete     lete
-    chr                          0819     0037     1047     POSIX-BC UTF-8    UTF-EBCDIC
-    ------------------------------------------------------------------------------------
-    <NULL>                       0        0        0        0        0        0 
-    <START OF HEADING>           1        1        1        1        1        1
-    <START OF TEXT>              2        2        2        2        2        2
-    <END OF TEXT>                3        3        3        3        3        3
-    <END OF TRANSMISSION>        4        55       55       55       4        55 
-    <ENQUIRY>                    5        45       45       45       5        45 
-    <ACKNOWLEDGE>                6        46       46       46       6        46 
-    <BELL>                       7        47       47       47       7        47 
-    <BACKSPACE>                  8        22       22       22       8        22 
-    <HORIZONTAL TABULATION>      9        5        5        5        9        5 
-    <LINE FEED>                  10       37       21       21       10       21       ***
-    <VERTICAL TABULATION>        11       11       11       11       11       11
-    <FORM FEED>                  12       12       12       12       12       12
-    <CARRIAGE RETURN>            13       13       13       13       13       13
-    <SHIFT OUT>                  14       14       14       14       14       14
-    <SHIFT IN>                   15       15       15       15       15       15
-    <DATA LINK ESCAPE>           16       16       16       16       16       16
-    <DEVICE CONTROL ONE>         17       17       17       17       17       17
-    <DEVICE CONTROL TWO>         18       18       18       18       18       18
-    <DEVICE CONTROL THREE>       19       19       19       19       19       19
-    <DEVICE CONTROL FOUR>        20       60       60       60       20       60
-    <NEGATIVE ACKNOWLEDGE>       21       61       61       61       21       61
-    <SYNCHRONOUS IDLE>           22       50       50       50       22       50
-    <END OF TRANSMISSION BLOCK>  23       38       38       38       23       38
-    <CANCEL>                     24       24       24       24       24       24
-    <END OF MEDIUM>              25       25       25       25       25       25
-    <SUBSTITUTE>                 26       63       63       63       26       63
-    <ESCAPE>                     27       39       39       39       27       39
-    <FILE SEPARATOR>             28       28       28       28       28       28
-    <GROUP SEPARATOR>            29       29       29       29       29       29
-    <RECORD SEPARATOR>           30       30       30       30       30       30
-    <UNIT SEPARATOR>             31       31       31       31       31       31
-    <SPACE>                      32       64       64       64       32       64
-    !                            33       90       90       90       33       90
-    "                            34       127      127      127      34       127
-    #                            35       123      123      123      35       123
-    $                            36       91       91       91       36       91
-    %                            37       108      108      108      37       108
-    &                            38       80       80       80       38       80
-    '                            39       125      125      125      39       125
-    (                            40       77       77       77       40       77
-    )                            41       93       93       93       41       93
-    *                            42       92       92       92       42       92
-    +                            43       78       78       78       43       78
-    ,                            44       107      107      107      44       107
-    -                            45       96       96       96       45       96
-    .                            46       75       75       75       46       75
-    /                            47       97       97       97       47       97
-    0                            48       240      240      240      48       240
-    1                            49       241      241      241      49       241
-    2                            50       242      242      242      50       242
-    3                            51       243      243      243      51       243
-    4                            52       244      244      244      52       244
-    5                            53       245      245      245      53       245
-    6                            54       246      246      246      54       246
-    7                            55       247      247      247      55       247
-    8                            56       248      248      248      56       248
-    9                            57       249      249      249      57       249
-    :                            58       122      122      122      58       122
-    ;                            59       94       94       94       59       94
-    <                            60       76       76       76       60       76
-    =                            61       126      126      126      61       126
-    >                            62       110      110      110      62       110
-    ?                            63       111      111      111      63       111
-    @                            64       124      124      124      64       124
-    A                            65       193      193      193      65       193
-    B                            66       194      194      194      66       194
-    C                            67       195      195      195      67       195
-    D                            68       196      196      196      68       196
-    E                            69       197      197      197      69       197
-    F                            70       198      198      198      70       198
-    G                            71       199      199      199      71       199
-    H                            72       200      200      200      72       200
-    I                            73       201      201      201      73       201
-    J                            74       209      209      209      74       209
-    K                            75       210      210      210      75       210
-    L                            76       211      211      211      76       211
-    M                            77       212      212      212      77       212
-    N                            78       213      213      213      78       213
-    O                            79       214      214      214      79       214
-    P                            80       215      215      215      80       215
-    Q                            81       216      216      216      81       216
-    R                            82       217      217      217      82       217
-    S                            83       226      226      226      83       226
-    T                            84       227      227      227      84       227
-    U                            85       228      228      228      85       228
-    V                            86       229      229      229      86       229
-    W                            87       230      230      230      87       230
-    X                            88       231      231      231      88       231
-    Y                            89       232      232      232      89       232
-    Z                            90       233      233      233      90       233
-    [                            91       186      173      187      91       173      *** ###
-    \                            92       224      224      188      92       224      ### 
-    ]                            93       187      189      189      93       189      ***
-    ^                            94       176      95       106      94       95       *** ###
-    _                            95       109      109      109      95       109
-    `                            96       121      121      74       96       121      ###
-    a                            97       129      129      129      97       129
-    b                            98       130      130      130      98       130
-    c                            99       131      131      131      99       131
-    d                            100      132      132      132      100      132
-    e                            101      133      133      133      101      133
-    f                            102      134      134      134      102      134
-    g                            103      135      135      135      103      135
-    h                            104      136      136      136      104      136
-    i                            105      137      137      137      105      137
-    j                            106      145      145      145      106      145
-    k                            107      146      146      146      107      146
-    l                            108      147      147      147      108      147
-    m                            109      148      148      148      109      148
-    n                            110      149      149      149      110      149
-    o                            111      150      150      150      111      150
-    p                            112      151      151      151      112      151
-    q                            113      152      152      152      113      152
-    r                            114      153      153      153      114      153
-    s                            115      162      162      162      115      162
-    t                            116      163      163      163      116      163
-    u                            117      164      164      164      117      164
-    v                            118      165      165      165      118      165
-    w                            119      166      166      166      119      166
-    x                            120      167      167      167      120      167
-    y                            121      168      168      168      121      168
-    z                            122      169      169      169      122      169
-    {                            123      192      192      251      123      192      ###
-    |                            124      79       79       79       124      79
-    }                            125      208      208      253      125      208      ###
-    ~                            126      161      161      255      126      161      ###
-    <DELETE>                     127      7        7        7        127      7
-    <C1 0>                       128      32       32       32       194.128  32
-    <C1 1>                       129      33       33       33       194.129  33
-    <C1 2>                       130      34       34       34       194.130  34
-    <C1 3>                       131      35       35       35       194.131  35
-    <C1 4>                       132      36       36       36       194.132  36
-    <C1 5>                       133      21       37       37       194.133  37       ***
-    <C1 6>                       134      6        6        6        194.134  6
-    <C1 7>                       135      23       23       23       194.135  23
-    <C1 8>                       136      40       40       40       194.136  40
-    <C1 9>                       137      41       41       41       194.137  41
-    <C1 10>                      138      42       42       42       194.138  42
-    <C1 11>                      139      43       43       43       194.139  43
-    <C1 12>                      140      44       44       44       194.140  44
-    <C1 13>                      141      9        9        9        194.141  9
-    <C1 14>                      142      10       10       10       194.142  10
-    <C1 15>                      143      27       27       27       194.143  27
-    <C1 16>                      144      48       48       48       194.144  48
-    <C1 17>                      145      49       49       49       194.145  49
-    <C1 18>                      146      26       26       26       194.146  26
-    <C1 19>                      147      51       51       51       194.147  51
-    <C1 20>                      148      52       52       52       194.148  52
-    <C1 21>                      149      53       53       53       194.149  53
-    <C1 22>                      150      54       54       54       194.150  54
-    <C1 23>                      151      8        8        8        194.151  8
-    <C1 24>                      152      56       56       56       194.152  56
-    <C1 25>                      153      57       57       57       194.153  57
-    <C1 26>                      154      58       58       58       194.154  58
-    <C1 27>                      155      59       59       59       194.155  59
-    <C1 28>                      156      4        4        4        194.156  4
-    <C1 29>                      157      20       20       20       194.157  20
-    <C1 30>                      158      62       62       62       194.158  62
-    <C1 31>                      159      255      255      95       194.159  255      ###
-    <NON-BREAKING SPACE>         160      65       65       65       194.160  128.65
-    <INVERTED EXCLAMATION MARK>  161      170      170      170      194.161  128.66
-    <CENT SIGN>                  162      74       74       176      194.162  128.67   ###
-    <POUND SIGN>                 163      177      177      177      194.163  128.68
-    <CURRENCY SIGN>              164      159      159      159      194.164  128.69
-    <YEN SIGN>                   165      178      178      178      194.165  128.70
-    <BROKEN BAR>                 166      106      106      208      194.166  128.71   ###
-    <SECTION SIGN>               167      181      181      181      194.167  128.72
-    <DIAERESIS>                  168      189      187      121      194.168  128.73   *** ###
-    <COPYRIGHT SIGN>             169      180      180      180      194.169  128.74
-    <FEMININE ORDINAL INDICATOR> 170      154      154      154      194.170  128.81
-    <LEFT POINTING GUILLEMET>    171      138      138      138      194.171  128.82
-    <NOT SIGN>                   172      95       176      186      194.172  128.83   *** ###
-    <SOFT HYPHEN>                173      202      202      202      194.173  128.84
-    <REGISTERED TRADE MARK SIGN> 174      175      175      175      194.174  128.85
-    <MACRON>                     175      188      188      161      194.175  128.86   ###
-    <DEGREE SIGN>                176      144      144      144      194.176  128.87
-    <PLUS-OR-MINUS SIGN>         177      143      143      143      194.177  128.88
-    <SUPERSCRIPT TWO>            178      234      234      234      194.178  128.89
-    <SUPERSCRIPT THREE>          179      250      250      250      194.179  128.98
-    <ACUTE ACCENT>               180      190      190      190      194.180  128.99
-    <MICRO SIGN>                 181      160      160      160      194.181  128.100
-    <PARAGRAPH SIGN>             182      182      182      182      194.182  128.101
-    <MIDDLE DOT>                 183      179      179      179      194.183  128.102
-    <CEDILLA>                    184      157      157      157      194.184  128.103
-    <SUPERSCRIPT ONE>            185      218      218      218      194.185  128.104
-    <MASC. ORDINAL INDICATOR>    186      155      155      155      194.186  128.105
-    <RIGHT POINTING GUILLEMET>   187      139      139      139      194.187  128.106
-    <FRACTION ONE QUARTER>       188      183      183      183      194.188  128.112
-    <FRACTION ONE HALF>          189      184      184      184      194.189  128.113
-    <FRACTION THREE QUARTERS>    190      185      185      185      194.190  128.114
-    <INVERTED QUESTION MARK>     191      171      171      171      194.191  128.115
-    <A WITH GRAVE>               192      100      100      100      195.128  138.65
-    <A WITH ACUTE>               193      101      101      101      195.129  138.66
-    <A WITH CIRCUMFLEX>          194      98       98       98       195.130  138.67
-    <A WITH TILDE>               195      102      102      102      195.131  138.68
-    <A WITH DIAERESIS>           196      99       99       99       195.132  138.69
-    <A WITH RING ABOVE>          197      103      103      103      195.133  138.70
-    <CAPITAL LIGATURE AE>        198      158      158      158      195.134  138.71
-    <C WITH CEDILLA>             199      104      104      104      195.135  138.72
-    <E WITH GRAVE>               200      116      116      116      195.136  138.73
-    <E WITH ACUTE>               201      113      113      113      195.137  138.74
-    <E WITH CIRCUMFLEX>          202      114      114      114      195.138  138.81
-    <E WITH DIAERESIS>           203      115      115      115      195.139  138.82
-    <I WITH GRAVE>               204      120      120      120      195.140  138.83
-    <I WITH ACUTE>               205      117      117      117      195.141  138.84
-    <I WITH CIRCUMFLEX>          206      118      118      118      195.142  138.85
-    <I WITH DIAERESIS>           207      119      119      119      195.143  138.86
-    <CAPITAL LETTER ETH>         208      172      172      172      195.144  138.87
-    <N WITH TILDE>               209      105      105      105      195.145  138.88
-    <O WITH GRAVE>               210      237      237      237      195.146  138.89
-    <O WITH ACUTE>               211      238      238      238      195.147  138.98
-    <O WITH CIRCUMFLEX>          212      235      235      235      195.148  138.99
-    <O WITH TILDE>               213      239      239      239      195.149  138.100
-    <O WITH DIAERESIS>           214      236      236      236      195.150  138.101
-    <MULTIPLICATION SIGN>        215      191      191      191      195.151  138.102
-    <O WITH STROKE>              216      128      128      128      195.152  138.103
-    <U WITH GRAVE>               217      253      253      224      195.153  138.104  ###
-    <U WITH ACUTE>               218      254      254      254      195.154  138.105
-    <U WITH CIRCUMFLEX>          219      251      251      221      195.155  138.106  ###
-    <U WITH DIAERESIS>           220      252      252      252      195.156  138.112
-    <Y WITH ACUTE>               221      173      186      173      195.157  138.113  *** ###
-    <CAPITAL LETTER THORN>       222      174      174      174      195.158  138.114
-    <SMALL LETTER SHARP S>       223      89       89       89       195.159  138.115
-    <a WITH GRAVE>               224      68       68       68       195.160  139.65
-    <a WITH ACUTE>               225      69       69       69       195.161  139.66
-    <a WITH CIRCUMFLEX>          226      66       66       66       195.162  139.67
-    <a WITH TILDE>               227      70       70       70       195.163  139.68
-    <a WITH DIAERESIS>           228      67       67       67       195.164  139.69
-    <a WITH RING ABOVE>          229      71       71       71       195.165  139.70
-    <SMALL LIGATURE ae>          230      156      156      156      195.166  139.71
-    <c WITH CEDILLA>             231      72       72       72       195.167  139.72
-    <e WITH GRAVE>               232      84       84       84       195.168  139.73
-    <e WITH ACUTE>               233      81       81       81       195.169  139.74
-    <e WITH CIRCUMFLEX>          234      82       82       82       195.170  139.81
-    <e WITH DIAERESIS>           235      83       83       83       195.171  139.82
-    <i WITH GRAVE>               236      88       88       88       195.172  139.83
-    <i WITH ACUTE>               237      85       85       85       195.173  139.84
-    <i WITH CIRCUMFLEX>          238      86       86       86       195.174  139.85
-    <i WITH DIAERESIS>           239      87       87       87       195.175  139.86
-    <SMALL LETTER eth>           240      140      140      140      195.176  139.87
-    <n WITH TILDE>               241      73       73       73       195.177  139.88
-    <o WITH GRAVE>               242      205      205      205      195.178  139.89
-    <o WITH ACUTE>               243      206      206      206      195.179  139.98
-    <o WITH CIRCUMFLEX>          244      203      203      203      195.180  139.99
-    <o WITH TILDE>               245      207      207      207      195.181  139.100
-    <o WITH DIAERESIS>           246      204      204      204      195.182  139.101
-    <DIVISION SIGN>              247      225      225      225      195.183  139.102
-    <o WITH STROKE>              248      112      112      112      195.184  139.103
-    <u WITH GRAVE>               249      221      221      192      195.185  139.104  ###
-    <u WITH ACUTE>               250      222      222      222      195.186  139.105
-    <u WITH CIRCUMFLEX>          251      219      219      219      195.187  139.106
-    <u WITH DIAERESIS>           252      220      220      220      195.188  139.112
-    <y WITH ACUTE>               253      141      141      141      195.189  139.113
-    <SMALL LETTER thorn>         254      142      142      142      195.190  139.114
-    <y WITH DIAERESIS>           255      223      223      223      195.191  139.115
+                                      ISO 8859-1  CCSID    CCSID                    CCSID 1047
+ chr                                  CCSID 0819  0037     1047    POSIX-BC  UTF-8  UTF-EBCDIC
+ ----------------------------------------------------------------------------------------------
+ <NULL>                                    0        0        0        0        0        0 
+ <START OF HEADING>                        1        1        1        1        1        1
+ <START OF TEXT>                           2        2        2        2        2        2
+ <END OF TEXT>                             3        3        3        3        3        3
+ <END OF TRANSMISSION>                     4        55       55       55       4        55 
+ <ENQUIRY>                                 5        45       45       45       5        45 
+ <ACKNOWLEDGE>                             6        46       46       46       6        46 
+ <BELL>                                    7        47       47       47       7        47 
+ <BACKSPACE>                               8        22       22       22       8        22 
+ <HORIZONTAL TABULATION>                   9        5        5        5        9        5 
+ <LINE FEED>                               10       37       21       21       10       21       ***
+ <VERTICAL TABULATION>                     11       11       11       11       11       11
+ <FORM FEED>                               12       12       12       12       12       12
+ <CARRIAGE RETURN>                         13       13       13       13       13       13
+ <SHIFT OUT>                               14       14       14       14       14       14
+ <SHIFT IN>                                15       15       15       15       15       15
+ <DATA LINK ESCAPE>                        16       16       16       16       16       16
+ <DEVICE CONTROL ONE>                      17       17       17       17       17       17
+ <DEVICE CONTROL TWO>                      18       18       18       18       18       18
+ <DEVICE CONTROL THREE>                    19       19       19       19       19       19
+ <DEVICE CONTROL FOUR>                     20       60       60       60       20       60
+ <NEGATIVE ACKNOWLEDGE>                    21       61       61       61       21       61
+ <SYNCHRONOUS IDLE>                        22       50       50       50       22       50
+ <END OF TRANSMISSION BLOCK>               23       38       38       38       23       38
+ <CANCEL>                                  24       24       24       24       24       24
+ <END OF MEDIUM>                           25       25       25       25       25       25
+ <SUBSTITUTE>                              26       63       63       63       26       63
+ <ESCAPE>                                  27       39       39       39       27       39
+ <FILE SEPARATOR>                          28       28       28       28       28       28
+ <GROUP SEPARATOR>                         29       29       29       29       29       29
+ <RECORD SEPARATOR>                        30       30       30       30       30       30
+ <UNIT SEPARATOR>                          31       31       31       31       31       31
+ <SPACE>                                   32       64       64       64       32       64
+ !                                         33       90       90       90       33       90
+ "                                         34       127      127      127      34       127
+ #                                         35       123      123      123      35       123
+ $                                         36       91       91       91       36       91
+ %                                         37       108      108      108      37       108
+ &                                         38       80       80       80       38       80
+ '                                         39       125      125      125      39       125
+ (                                         40       77       77       77       40       77
+ )                                         41       93       93       93       41       93
+ *                                         42       92       92       92       42       92
+ +                                         43       78       78       78       43       78
+ ,                                         44       107      107      107      44       107
+ -                                         45       96       96       96       45       96
+ .                                         46       75       75       75       46       75
+ /                                         47       97       97       97       47       97
+ 0                                         48       240      240      240      48       240
+ 1                                         49       241      241      241      49       241
+ 2                                         50       242      242      242      50       242
+ 3                                         51       243      243      243      51       243
+ 4                                         52       244      244      244      52       244
+ 5                                         53       245      245      245      53       245
+ 6                                         54       246      246      246      54       246
+ 7                                         55       247      247      247      55       247
+ 8                                         56       248      248      248      56       248
+ 9                                         57       249      249      249      57       249
+ :                                         58       122      122      122      58       122
+ ;                                         59       94       94       94       59       94
+ <                                         60       76       76       76       60       76
+ =                                         61       126      126      126      61       126
+ >                                         62       110      110      110      62       110
+ ?                                         63       111      111      111      63       111
+ @                                         64       124      124      124      64       124
+ A                                         65       193      193      193      65       193
+ B                                         66       194      194      194      66       194
+ C                                         67       195      195      195      67       195
+ D                                         68       196      196      196      68       196
+ E                                         69       197      197      197      69       197
+ F                                         70       198      198      198      70       198
+ G                                         71       199      199      199      71       199
+ H                                         72       200      200      200      72       200
+ I                                         73       201      201      201      73       201
+ J                                         74       209      209      209      74       209
+ K                                         75       210      210      210      75       210
+ L                                         76       211      211      211      76       211
+ M                                         77       212      212      212      77       212
+ N                                         78       213      213      213      78       213
+ O                                         79       214      214      214      79       214
+ P                                         80       215      215      215      80       215
+ Q                                         81       216      216      216      81       216
+ R                                         82       217      217      217      82       217
+ S                                         83       226      226      226      83       226
+ T                                         84       227      227      227      84       227
+ U                                         85       228      228      228      85       228
+ V                                         86       229      229      229      86       229
+ W                                         87       230      230      230      87       230
+ X                                         88       231      231      231      88       231
+ Y                                         89       232      232      232      89       232
+ Z                                         90       233      233      233      90       233
+ [                                         91       186      173      187      91       173      *** ###
+ \                                         92       224      224      188      92       224      ### 
+ ]                                         93       187      189      189      93       189      ***
+ ^                                         94       176      95       106      94       95       *** ###
+ _                                         95       109      109      109      95       109
+ `                                         96       121      121      74       96       121      ###
+ a                                         97       129      129      129      97       129
+ b                                         98       130      130      130      98       130
+ c                                         99       131      131      131      99       131
+ d                                         100      132      132      132      100      132
+ e                                         101      133      133      133      101      133
+ f                                         102      134      134      134      102      134
+ g                                         103      135      135      135      103      135
+ h                                         104      136      136      136      104      136
+ i                                         105      137      137      137      105      137
+ j                                         106      145      145      145      106      145
+ k                                         107      146      146      146      107      146
+ l                                         108      147      147      147      108      147
+ m                                         109      148      148      148      109      148
+ n                                         110      149      149      149      110      149
+ o                                         111      150      150      150      111      150
+ p                                         112      151      151      151      112      151
+ q                                         113      152      152      152      113      152
+ r                                         114      153      153      153      114      153
+ s                                         115      162      162      162      115      162
+ t                                         116      163      163      163      116      163
+ u                                         117      164      164      164      117      164
+ v                                         118      165      165      165      118      165
+ w                                         119      166      166      166      119      166
+ x                                         120      167      167      167      120      167
+ y                                         121      168      168      168      121      168
+ z                                         122      169      169      169      122      169
+ {                                         123      192      192      251      123      192      ###
+ |                                         124      79       79       79       124      79
+ }                                         125      208      208      253      125      208      ###
+ ~                                         126      161      161      255      126      161      ###
+ <DELETE>                                  127      7        7        7        127      7
+ <PADDING CHARACTER>                       128      32       32       32       194.128  32
+ <HIGH OCTET PRESET>                       129      33       33       33       194.129  33
+ <BREAK PERMITTED HERE>                    130      34       34       34       194.130  34
+ <NO BREAK HERE>                           131      35       35       35       194.131  35
+ <INDEX>                                   132      36       36       36       194.132  36
+ <NEXT LINE>                               133      21       37       37       194.133  37       ***
+ <START OF SELECTED AREA>                  134      6        6        6        194.134  6
+ <END OF SELECTED AREA>                    135      23       23       23       194.135  23
+ <CHARACTER TABULATION SET>                136      40       40       40       194.136  40
+ <CHARACTER TABULATION WITH JUSTIFICATION> 137      41       41       41       194.137  41
+ <LINE TABULATION SET>                     138      42       42       42       194.138  42
+ <PARTIAL LINE FORWARD>                    139      43       43       43       194.139  43
+ <PARTIAL LINE BACKWARD>                   140      44       44       44       194.140  44
+ <REVERSE LINE FEED>                       141      9        9        9        194.141  9
+ <SINGLE SHIFT TWO>                        142      10       10       10       194.142  10
+ <SINGLE SHIFT THREE>                      143      27       27       27       194.143  27
+ <DEVICE CONTROL STRING>                   144      48       48       48       194.144  48
+ <PRIVATE USE ONE>                         145      49       49       49       194.145  49
+ <PRIVATE USE TWO>                         146      26       26       26       194.146  26
+ <SET TRANSMIT STATE>                      147      51       51       51       194.147  51
+ <CANCEL CHARACTER>                        148      52       52       52       194.148  52
+ <MESSAGE WAITING>                         149      53       53       53       194.149  53
+ <START OF GUARDED AREA>                   150      54       54       54       194.150  54
+ <END OF GUARDED AREA>                     151      8        8        8        194.151  8
+ <START OF STRING>                         152      56       56       56       194.152  56
+ <SINGLE GRAPHIC CHARACTER INTRODUCER>     153      57       57       57       194.153  57
+ <SINGLE CHARACTER INTRODUCER>             154      58       58       58       194.154  58
+ <CONTROL SEQUENCE INTRODUCER>             155      59       59       59       194.155  59
+ <STRING TERMINATOR>                       156      4        4        4        194.156  4
+ <OPERATING SYSTEM COMMAND>                157      20       20       20       194.157  20
+ <PRIVACY MESSAGE>                         158      62       62       62       194.158  62
+ <APPLICATION PROGRAM COMMAND>             159      255      255      95       194.159  255      ###
+ <NON-BREAKING SPACE>                      160      65       65       65       194.160  128.65
+ <INVERTED EXCLAMATION MARK>               161      170      170      170      194.161  128.66
+ <CENT SIGN>                               162      74       74       176      194.162  128.67   ###
+ <POUND SIGN>                              163      177      177      177      194.163  128.68
+ <CURRENCY SIGN>                           164      159      159      159      194.164  128.69
+ <YEN SIGN>                                165      178      178      178      194.165  128.70
+ <BROKEN BAR>                              166      106      106      208      194.166  128.71   ###
+ <SECTION SIGN>                            167      181      181      181      194.167  128.72
+ <DIAERESIS>                               168      189      187      121      194.168  128.73   *** ###
+ <COPYRIGHT SIGN>                          169      180      180      180      194.169  128.74
+ <FEMININE ORDINAL INDICATOR>              170      154      154      154      194.170  128.81
+ <LEFT POINTING GUILLEMET>                 171      138      138      138      194.171  128.82
+ <NOT SIGN>                                172      95       176      186      194.172  128.83   *** ###
+ <SOFT HYPHEN>                             173      202      202      202      194.173  128.84
+ <REGISTERED TRADE MARK SIGN>              174      175      175      175      194.174  128.85
+ <MACRON>                                  175      188      188      161      194.175  128.86   ###
+ <DEGREE SIGN>                             176      144      144      144      194.176  128.87
+ <PLUS-OR-MINUS SIGN>                      177      143      143      143      194.177  128.88
+ <SUPERSCRIPT TWO>                         178      234      234      234      194.178  128.89
+ <SUPERSCRIPT THREE>                       179      250      250      250      194.179  128.98
+ <ACUTE ACCENT>                            180      190      190      190      194.180  128.99
+ <MICRO SIGN>                              181      160      160      160      194.181  128.100
+ <PARAGRAPH SIGN>                          182      182      182      182      194.182  128.101
+ <MIDDLE DOT>                              183      179      179      179      194.183  128.102
+ <CEDILLA>                                 184      157      157      157      194.184  128.103
+ <SUPERSCRIPT ONE>                         185      218      218      218      194.185  128.104
+ <MASC. ORDINAL INDICATOR>                 186      155      155      155      194.186  128.105
+ <RIGHT POINTING GUILLEMET>                187      139      139      139      194.187  128.106
+ <FRACTION ONE QUARTER>                    188      183      183      183      194.188  128.112
+ <FRACTION ONE HALF>                       189      184      184      184      194.189  128.113
+ <FRACTION THREE QUARTERS>                 190      185      185      185      194.190  128.114
+ <INVERTED QUESTION MARK>                  191      171      171      171      194.191  128.115
+ <A WITH GRAVE>                            192      100      100      100      195.128  138.65
+ <A WITH ACUTE>                            193      101      101      101      195.129  138.66
+ <A WITH CIRCUMFLEX>                       194      98       98       98       195.130  138.67
+ <A WITH TILDE>                            195      102      102      102      195.131  138.68
+ <A WITH DIAERESIS>                        196      99       99       99       195.132  138.69
+ <A WITH RING ABOVE>                       197      103      103      103      195.133  138.70
+ <CAPITAL LIGATURE AE>                     198      158      158      158      195.134  138.71
+ <C WITH CEDILLA>                          199      104      104      104      195.135  138.72
+ <E WITH GRAVE>                            200      116      116      116      195.136  138.73
+ <E WITH ACUTE>                            201      113      113      113      195.137  138.74
+ <E WITH CIRCUMFLEX>                       202      114      114      114      195.138  138.81
+ <E WITH DIAERESIS>                        203      115      115      115      195.139  138.82
+ <I WITH GRAVE>                            204      120      120      120      195.140  138.83
+ <I WITH ACUTE>                            205      117      117      117      195.141  138.84
+ <I WITH CIRCUMFLEX>                       206      118      118      118      195.142  138.85
+ <I WITH DIAERESIS>                        207      119      119      119      195.143  138.86
+ <CAPITAL LETTER ETH>                      208      172      172      172      195.144  138.87
+ <N WITH TILDE>                            209      105      105      105      195.145  138.88
+ <O WITH GRAVE>                            210      237      237      237      195.146  138.89
+ <O WITH ACUTE>                            211      238      238      238      195.147  138.98
+ <O WITH CIRCUMFLEX>                       212      235      235      235      195.148  138.99
+ <O WITH TILDE>                            213      239      239      239      195.149  138.100
+ <O WITH DIAERESIS>                        214      236      236      236      195.150  138.101
+ <MULTIPLICATION SIGN>                     215      191      191      191      195.151  138.102
+ <O WITH STROKE>                           216      128      128      128      195.152  138.103
+ <U WITH GRAVE>                            217      253      253      224      195.153  138.104  ###
+ <U WITH ACUTE>                            218      254      254      254      195.154  138.105
+ <U WITH CIRCUMFLEX>                       219      251      251      221      195.155  138.106  ###
+ <U WITH DIAERESIS>                        220      252      252      252      195.156  138.112
+ <Y WITH ACUTE>                            221      173      186      173      195.157  138.113  *** ###
+ <CAPITAL LETTER THORN>                    222      174      174      174      195.158  138.114
+ <SMALL LETTER SHARP S>                    223      89       89       89       195.159  138.115
+ <a WITH GRAVE>                            224      68       68       68       195.160  139.65
+ <a WITH ACUTE>                            225      69       69       69       195.161  139.66
+ <a WITH CIRCUMFLEX>                       226      66       66       66       195.162  139.67
+ <a WITH TILDE>                            227      70       70       70       195.163  139.68
+ <a WITH DIAERESIS>                        228      67       67       67       195.164  139.69
+ <a WITH RING ABOVE>                       229      71       71       71       195.165  139.70
+ <SMALL LIGATURE ae>                       230      156      156      156      195.166  139.71
+ <c WITH CEDILLA>                          231      72       72       72       195.167  139.72
+ <e WITH GRAVE>                            232      84       84       84       195.168  139.73
+ <e WITH ACUTE>                            233      81       81       81       195.169  139.74
+ <e WITH CIRCUMFLEX>                       234      82       82       82       195.170  139.81
+ <e WITH DIAERESIS>                        235      83       83       83       195.171  139.82
+ <i WITH GRAVE>                            236      88       88       88       195.172  139.83
+ <i WITH ACUTE>                            237      85       85       85       195.173  139.84
+ <i WITH CIRCUMFLEX>                       238      86       86       86       195.174  139.85
+ <i WITH DIAERESIS>                        239      87       87       87       195.175  139.86
+ <SMALL LETTER eth>                        240      140      140      140      195.176  139.87
+ <n WITH TILDE>                            241      73       73       73       195.177  139.88
+ <o WITH GRAVE>                            242      205      205      205      195.178  139.89
+ <o WITH ACUTE>                            243      206      206      206      195.179  139.98
+ <o WITH CIRCUMFLEX>                       244      203      203      203      195.180  139.99
+ <o WITH TILDE>                            245      207      207      207      195.181  139.100
+ <o WITH DIAERESIS>                        246      204      204      204      195.182  139.101
+ <DIVISION SIGN>                           247      225      225      225      195.183  139.102
+ <o WITH STROKE>                           248      112      112      112      195.184  139.103
+ <u WITH GRAVE>                            249      221      221      192      195.185  139.104  ###
+ <u WITH ACUTE>                            250      222      222      222      195.186  139.105
+ <u WITH CIRCUMFLEX>                       251      219      219      219      195.187  139.106
+ <u WITH DIAERESIS>                        252      220      220      220      195.188  139.112
+ <y WITH ACUTE>                            253      141      141      141      195.189  139.113
+ <SMALL LETTER thorn>                      254      142      142      142      195.190  139.114
+ <y WITH DIAERESIS>                        255      223      223      223      195.191  139.115
 
 If you would rather see the above table in CCSID 0037 order rather than
 ASCII + Latin-1 order then run the table through:
@@ -585,14 +583,14 @@ ASCII + Latin-1 order then run the table through:
 
 =back
 
-    perl -ne 'if(/.{33}\d{1,3}\s{6,8}\d{1,3}\s{6,8}\d{1,3}\s{6,8}\d{1,3}/)'\
+    perl -ne 'if(/.{43}\d{1,3}\s{6,8}\d{1,3}\s{6,8}\d{1,3}\s{6,8}\d{1,3}/)'\
      -e '{push(@l,$_)}' \
      -e 'END{print map{$_->[0]}' \
      -e '          sort{$a->[1] <=> $b->[1]}' \
-     -e '          map{[$_,substr($_,42,3)]}@l;}' perlebcdic.pod
+     -e '          map{[$_,substr($_,52,3)]}@l;}' perlebcdic.pod
 
-If you would rather see it in CCSID 1047 order then change the digit
-42 in the last line to 51, like this:
+If you would rather see it in CCSID 1047 order then change the number
+52 in the last line to 61, like this:
 
 =over 4
 
@@ -600,14 +598,14 @@ If you would rather see it in CCSID 1047 order then change the digit
 
 =back
 
-    perl -ne 'if(/.{33}\d{1,3}\s{6,8}\d{1,3}\s{6,8}\d{1,3}\s{6,8}\d{1,3}/)'\
+    perl -ne 'if(/.{43}\d{1,3}\s{6,8}\d{1,3}\s{6,8}\d{1,3}\s{6,8}\d{1,3}/)'\
      -e '{push(@l,$_)}' \
      -e 'END{print map{$_->[0]}' \
      -e '          sort{$a->[1] <=> $b->[1]}' \
-     -e '          map{[$_,substr($_,51,3)]}@l;}' perlebcdic.pod
+     -e '          map{[$_,substr($_,61,3)]}@l;}' perlebcdic.pod
 
-If you would rather see it in POSIX-BC order then change the digit
-51 in the last line to 60, like this:
+If you would rather see it in POSIX-BC order then change the number
+61 in the last line to 70, like this:
 
 =over 4
 
@@ -615,11 +613,11 @@ If you would rather see it in POSIX-BC order then change the digit
 
 =back
 
-    perl -ne 'if(/.{33}\d{1,3}\s{6,8}\d{1,3}\s{6,8}\d{1,3}\s{6,8}\d{1,3}/)'\
+    perl -ne 'if(/.{43}\d{1,3}\s{6,8}\d{1,3}\s{6,8}\d{1,3}\s{6,8}\d{1,3}/)'\
      -e '{push(@l,$_)}' \
      -e 'END{print map{$_->[0]}' \
      -e '          sort{$a->[1] <=> $b->[1]}' \
-     -e '          map{[$_,substr($_,60,3)]}@l;}' perlebcdic.pod
+     -e '          map{[$_,substr($_,70,3)]}@l;}' perlebcdic.pod
 
 
 =head1 IDENTIFYING CHARACTER CODE SETS
@@ -758,58 +756,55 @@ an example adapted from the one in L<perlop>:
 
 An interesting property of the 32 C0 control characters
 in the ASCII table is that they can "literally" be constructed
-as control characters in perl, e.g. C<(chr(0) eq "\c@")> 
-C<(chr(1) eq "\cA")>, and so on.  Perl on EBCDIC platforms has been 
-ported to take "\c@" to chr(0) and "\cA" to chr(1) as well, but the
+as control characters in perl, e.g. C<(chr(0) eq C<\c@>)> 
+C<(chr(1) eq C<\cA>)>, and so on.  Perl on EBCDIC platforms has been 
+ported to take C<\c@> to chr(0) and C<\cA> to chr(1), etc. as well, but the
 thirty three characters that result depend on which code page you are
-using.  The table below uses the character names from the previous table 
-but with substitutions such as s/START OF/S.O./; s/END OF /E.O./; 
-s/TRANSMISSION/TRANS./; s/TABULATION/TAB./; s/VERTICAL/VERT./; 
-s/HORIZONTAL/HORIZ./; s/DEVICE CONTROL/D.C./; s/SEPARATOR/SEP./; 
-s/NEGATIVE ACKNOWLEDGE/NEG. ACK./;.  The POSIX-BC and 1047 sets are
+using.  The table below uses the standard acronyms for the controls.
+The POSIX-BC and 1047 sets are
 identical throughout this range and differ from the 0037 set at only 
 one spot (21 decimal).  Note that the C<LINE FEED> character
-may be generated by "\cJ" on ASCII platforms but by "\cU" on 1047 or POSIX-BC 
+may be generated by C<\cJ> on ASCII platforms but by C<\cU> on 1047 or POSIX-BC 
 platforms and cannot be generated as a C<"\c.letter."> control character on 
-0037 platforms.  Note also that "\c\\" maps to two characters
-not one.
-
-    chr   ord  8859-1               0037                1047 && POSIX-BC     
-    ------------------------------------------------------------------------
-    "\c?" 127  <DELETE>             "                   "              ***><
-    "\c@"   0  <NULL>               <NULL>              <NULL>         ***><
-    "\cA"   1  <S.O. HEADING>       <S.O. HEADING>      <S.O. HEADING> 
-    "\cB"   2  <S.O. TEXT>          <S.O. TEXT>         <S.O. TEXT>
-    "\cC"   3  <E.O. TEXT>          <E.O. TEXT>         <E.O. TEXT>
-    "\cD"   4  <E.O. TRANS.>        <C1 28>             <C1 28> 
-    "\cE"   5  <ENQUIRY>            <HORIZ. TAB.>       <HORIZ. TAB.>    
-    "\cF"   6  <ACKNOWLEDGE>        <C1 6>              <C1 6>   
-    "\cG"   7  <BELL>               <DELETE>            <DELETE>   
-    "\cH"   8  <BACKSPACE>          <C1 23>             <C1 23>
-    "\cI"   9  <HORIZ. TAB.>        <C1 13>             <C1 13>
-    "\cJ"  10  <LINE FEED>          <C1 14>             <C1 14>
-    "\cK"  11  <VERT. TAB.>         <VERT. TAB.>        <VERT. TAB.>
-    "\cL"  12  <FORM FEED>          <FORM FEED>         <FORM FEED>    
-    "\cM"  13  <CARRIAGE RETURN>    <CARRIAGE RETURN>   <CARRIAGE RETURN> 
-    "\cN"  14  <SHIFT OUT>          <SHIFT OUT>         <SHIFT OUT>
-    "\cO"  15  <SHIFT IN>           <SHIFT IN>          <SHIFT IN>
-    "\cP"  16  <DATA LINK ESCAPE>   <DATA LINK ESCAPE>  <DATA LINK ESCAPE> 
-    "\cQ"  17  <D.C. ONE>           <D.C. ONE>          <D.C. ONE>
-    "\cR"  18  <D.C. TWO>           <D.C. TWO>          <D.C. TWO>
-    "\cS"  19  <D.C. THREE>         <D.C. THREE>        <D.C. THREE> 
-    "\cT"  20  <D.C. FOUR>          <C1 29>             <C1 29> 
-    "\cU"  21  <NEG. ACK.>          <C1 5>              <LINE FEED>    ***
-    "\cV"  22  <SYNCHRONOUS IDLE>   <BACKSPACE>         <BACKSPACE>
-    "\cW"  23  <E.O. TRANS. BLOCK>  <C1 7>              <C1 7>
-    "\cX"  24  <CANCEL>             <CANCEL>            <CANCEL>
-    "\cY"  25  <E.O. MEDIUM>        <E.O. MEDIUM>       <E.O. MEDIUM>
-    "\cZ"  26  <SUBSTITUTE>         <C1 18>             <C1 18>
-    "\c["  27  <ESCAPE>             <C1 15>             <C1 15>
-    "\c\\" 28  <FILE SEP.>\         <FILE SEP.>\        <FILE SEP.>\
-    "\c]"  29  <GROUP SEP.>         <GROUP SEP.>        <GROUP SEP.>
-    "\c^"  30  <RECORD SEP.>        <RECORD SEP.>       <RECORD SEP.>  ***><
-    "\c_"  31  <UNIT SEP.>          <UNIT SEP.>         <UNIT SEP.>    ***><
-
+0037 platforms.  Note also that C<\c\> cannot be the final element in a string
+or regex, as it will absorb the terminator.   But C<\c\I<X>> is a C<FILE
+SEPARATOR> concatenated with I<X> for all I<X>.
+
+ chr   ord   8859-1    0037    1047 && POSIX-BC     
+ ------------------------------------------------------------------------
+ \c?   127   <DEL>       "            "    
+ \c@     0   <NUL>     <NUL>        <NUL>
+ \cA     1   <SOH>     <SOH>        <SOH> 
+ \cB     2   <STX>     <STX>        <STX>
+ \cC     3   <ETX>     <ETX>        <ETX>
+ \cD     4   <EOT>     <ST>         <ST>    
+ \cE     5   <ENQ>     <HT>         <HT>    
+ \cF     6   <ACK>     <SSA>        <SSA>    
+ \cG     7   <BEL>     <DEL>        <DEL>   
+ \cH     8   <BS>      <EPA>        <EPA>  
+ \cI     9   <HT>      <RI>         <RI>   
+ \cJ    10   <LF>      <SS2>        <SS2>  
+ \cK    11   <VT>      <VT>         <VT>
+ \cL    12   <FF>      <FF>         <FF>    
+ \cM    13   <CR>      <CR>         <CR> 
+ \cN    14   <SO>      <SO>         <SO>
+ \cO    15   <SI>      <SI>         <SI>
+ \cP    16   <DLE>     <DLE>        <DLE> 
+ \cQ    17   <DC1>     <DC1>        <DC1>
+ \cR    18   <DC2>     <DC2>        <DC2>
+ \cS    19   <DC3>     <DC3>        <DC3> 
+ \cT    20   <DC4>     <OSC>        <OSC>   
+ \cU    21   <NAK>     <NEL>        <LF>              ***
+ \cV    22   <SYN>     <BS>         <BS>
+ \cW    23   <ETB>     <ESA>        <ESA> 
+ \cX    24   <CAN>     <CAN>        <CAN>
+ \cY    25   <EOM>     <EOM>        <EOM>
+ \cZ    26   <SUB>     <PU2>        <PU2>  
+ \c[    27   <ESC>     <SS3>        <SS3>  
+ \c\X   28   <FS>X     <FS>X        <FS>X
+ \c]    29   <GS>      <GS>         <GS>
+ \c^    30   <RS>      <RS>         <RS>
+ \c_    31   <US>      <US>         <US>
 
 =head1 FUNCTION DIFFERENCES
 
@@ -948,7 +943,7 @@ four coded character sets discussed in this document is as follows:
         if (ord('^')==94)  { # ascii
             return $char =~ /[\000-\037]/;
         } 
-        if (ord('^')==176) { # 37
+        if (ord('^')==176) { # 0037
             return $char =~ /[\000-\003\067\055-\057\026\005\045\013-\023\074\075\062\046\030\031\077\047\034-\037]/;
         }
         if (ord('^')==95 || ord('^')==106) { # 1047 || posix-bc
@@ -976,7 +971,7 @@ four coded character sets discussed in this document is as follows:
         if (ord('^')==94)  { # ascii
             return $char =~ /[\200-\237]/;
         }
-        if (ord('^')==176) { # 37
+        if (ord('^')==176) { # 0037
             return $char =~ /[\040-\044\025\006\027\050-\054\011\012\033\060\061\032\063-\066\010\070-\073\040\024\076\377]/;
         }
         if (ord('^')==95)  { # 1047
@@ -993,7 +988,7 @@ four coded character sets discussed in this document is as follows:
         if (ord('^')==94)  { # ascii
             return $char =~ /[\240-\377]/;
         }
-        if (ord('^')==176) { # 37
+        if (ord('^')==176) { # 0037
             return $char =~ 
               /[\101\252\112\261\237\262\152\265\275\264\232\212\137\312\257\274\220\217\352\372\276\240\266\263\235\332\233\213\267\270\271\253\144\145\142\146\143\147\236\150\164\161-\163\170\165-\167\254\151\355\356\353\357\354\277\200\375\376\373\374\255\256\131\104\105\102\106\103\107\234\110\124\121-\123\130\125-\127\214\111\315\316\313\317\314\341\160\335\336\333\334\215\216\337]/;
         }
@@ -1427,5 +1422,3 @@ Thanks also to Vickie Cooper, Philip Newton, William Raffloer, and
 Joe Smith.  Trademarks, registered trademarks, service marks and 
 registered service marks used in this document are the property of 
 their respective owners.
-
-