rubi is removed from aozora.gr.jp

gistfile1.pl

#!/usr/bin/env perl                                                                                                                                                                    

use strict;
use utf8;
use File::Basename;

for my $argv (@ARGV){
    my $file_name = basename($argv,'.txt');

    open my $fh_in, "<:encoding(shiftjis)", $argv or die "$argv : $!";
    open my $fh_out, ">:encoding(shiftjis)", $file_name.'_NoRubi.txt'  or die "$file_name : $!";

    while(<$fh_in>){
        s{ (?:《[^》]+》) | [｜] }{}gmxs;                                                                                                                                              
        print {$fh_out} $_;                                                                                                                                                            
    }                                                                                                                                                                                  
}