perl -pi.bak -e "INIT{@ARGV=<@ARGV>}s/vanilla/strawberry/gi" *.txt *.doc