【求助】perl 替换文件中的词

有文件a.txt
1. 现需要将文件中出现mtk_color的地方替换成另一字符串%market
2. 现有多个文件均需进行该操作，如b.txt

使用perl脚本实现

我写了一个实现方案，但使用了比较多的代码，请教有无更简洁的。

a. 先打开文件，将内容读出来，变成数组
b. 再使用模式匹配替换字串，修改数组
c. 再把数组存成文件

嫌啰嗦，求简洁方案，

回复 duan2455


    罗嗦也是办法，只要能写出来就行。这样的程序谁都写过，只能向你保证随着你对 Perl 的了解你会越写越短的。短到只在命令行写一行