perl调用命令包含正则表达式，要注意转义符。[经验，还未证实]

sed -i 's/\.//g' file

为什么在perl中，转义要用双\？
猜测：sed命令转义一次，perl转义一次？

`sed -i 's/\\\.//g' file`

system("sed -i \'s/\\\.//g\' file")

推荐方法：
如果perl调用shell命令的参数过于复杂，可以把参数作为字符串复制给一个perl变量。
比如

my $ReplaceBefore = ".";
my $ReplaceAfter   = "";
`sed -i 's/$ReplaceBefore/$ReplaceAfter/g' file`