perl文件替换问题,请教

perl文件替换问题,请教

各位,我记得以前用PERL-e方式直接操作文件可以做批量替换工作,但今天怎么试都不行,请教大虾们了

我的环境是WIN2000 SERVER,把test1.pl中是aaa的字符串替换为ccc.
perl -pi.bak -e '~s/aaa/ccc/g' test1.pl

求教!
windows 下要用双引号,单引号不行。
晕,真是这样,俺的一世英名啊!