#!/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 anonymize…