Perl - wikimemo

#!/usr/local/bin/perl
 
#open
open(IN, "in.txt");
open(OUT, "> out.txt");
 
while(<IN>){
	$_ =~ s/「|」//g;
	print OUT $_;
}
 
#close
close(OUT);
close(IN);