system qq|perl -pib -e "s/CAT/mouse/g" 'D:\tmp\file.txt'|;