perl -MFile::Find -i -e 'find(sub{@ARGV=($_);s/find/replace/ while <>},".")'