Select Code to Download

my $shiftjis = qr{
    [\x30-\x39]
...
    | [\x89-\xE9][\x3F-\xFE]
    | [\xEA][\x3F-\x9F]
    }x;

while(<STDIN>){
  chomp();
...

  print $_."\n";
}