Select Code to Download

my $shiftjis = q{
    [\x30-\x39]
    | [\x41-\x59]
...
  s/[^${shiftjis}]/ogx;
  print $_."\n";
}