As The Camel tells us, in chapter 5, verse 4 (Character Classes), you may combine ranges (note Table 5.8, it has several ranges combined in the lower portion). So - you can write the first few lines of $shiftjis as: 
[\x30-\x39\x41-\x59\x61-\x7A]

[download]
intsead of: 
[\x30-\x39] | [\x41-\x59] | [\x61-\x7A]

[download]
This would allow you to have one huge character class instead of multiple. I don't have any source text with exotic chacters, so this is not tested. But, I see other problems. You have a missing second slash in the substitution regex. Another issue is that you have tried to use nesting within character classes, which doesn't work.. So, assuming that you've done the above and combined the classes, in the fix I'm also removing the outer square brackets. Instead of: 
s/[${shiftjis}]/ogx;

[download]
Try: 
s/${shiftjis}//ogx;

[download]
If that doesn't help, please post a short section of your source material to help test other solutions.

In reply to Re: regex: how to negate a set of character ranges? by dynamo
in thread regex: how to negate a set of character ranges? by kettle

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.