２つのテキストファイルがあります。

http://www.forest.impress.co.jp/lib/stdy/program/progdevenv/acti...

をインストールして、以下のスクリプトを置換するファイルのあるフォルダに置いて、

perl easy_replace.pl

として実行します。

• ここからコピペ

# easy_replace.pl

# CSVを簡易的に読み込む

open FILE,"file2.csv";

my %replace_words;

while(my $line = <FILE>){

my ($from,$to) = split(",",$line);

$replace_words{$from}= $to;

}

close(FILE);

# 置換する対象のファイルを読み込む

open FILE,"file1.txt";

my @files = <FILE>;

close FILE;

$file = join("",@files);

# 置換する

foreach my $from (keys $replace_words){

my $to = $replace_words{$from};

$file =~ s/\Q$from\e/$to/g;

}

# 書き出す

open FILE,">file1_new.txt";

print FILE $file;

close FILE;

exit;

• ここまでコピペ

CSVの内容を作り直していいのなら、

http://www.forest.impress.co.jp/lib/sys/file/filesearch/repl_ace...

これが使えるかと思うんですがどうでしょう。