Select Code to Download

$sjis= q{ # Shift-JIS encoding
  <[0-9A-F][0-9A-F][0-9A-F][0-9A-F]>                                  
+      # CDPS Unicode tag
...
  | [\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]                          
+      # Two-byte range
  | [\xA0-\xDF]                                                       
+             # Half-width katakana
};