http://qs321.pair.com?node_id=14428


in reply to Re: Replace across files (extreme newbie)
in thread Replace across files (extreme newbie)

The File::Find version would be something like this. perl -MFile::Find -pi -e 'BEGIN {find sub {-f && push @ARGV, $File::Find::name}, "."} s/string x/string y/g'