perl -MFile::Find -pi -e'BEGIN { find( sub { push @ARGV, $File::Find::name if /\.txt\z/i }, "." ) } s/find/replace/'