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