匿名支援

#!/usr/bin/perl
use utf8;
binmode STDOUT, ":utf8";
binmode STDIN, ":utf8";

while(<>) {
	chomp;
	$n = $_;
	$m = substr($n,0,1) . "●" . substr($n,2,1) . "●" . substr($n,4);
	print $m . "\n";
}

例

% more test.txt
松本龍復興担当相
% perl anonymizercsv.pl < test.txt
松●龍●興担当相