find . -depth -name '*.p[lm]' | 
      xargs perl -spi -e 's/Log::Writer/MWLOG/'