system("perl -pib -e \"s/CAT/mouse/g\" D:\\tmp\\file.txt");