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