Select Code to Download

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

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

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

C:\temp>perl -lpe "" foo.txt
foo
...

C:\temp>perl -lpe "" 'foo.txt'
Can't open 'foo.txt': No such file or directory.