use strict; use warnings; use Cwd; use File::Find; my $search_pattern='em:maxVersion'; my $file_pattern ='install\.rdf$'; # install.rdf find(sub { my $file = $File::Find::name; my $name = $_; $file =~ s,/,\\,g; return unless -f $file; retu…