>>>>> "Luciano" == Luciano Miguel Ferreira Rocha <[EMAIL PROTECTED]> writes:
Luciano> I would just use: Luciano> find . -type f -print0 | xargs -0 perl -spi -e 's/cgi-bin\/some_scr.pl/mod-perl\/some_scr.pl/g;' Ewww. Why two processes? use File::Find; @ARGV = (); find sub { push @ARGV, $File::Find::name if -f }, "."; $^I = ""; # or ".bak" while (<>) { s/cgi-bin(\/some_scr.pl)/mod-perl$1/g; print; } -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 <[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/> Perl/Unix/security consulting, Technical writing, Comedy, etc. etc. See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!