#!/usr/bin/perl
use Getopt::Std;

getopt("d:s:r:");
print "dir: $opt_d    search for: $opt_s   replace with: $opt_r\n";
print "Is the above info correct? y/n: ";
$confirmation = <>;
if ($confirmation =~ /y/i) {
        opendir(DIR, $opt_d) or die "Couldn't opendir $opt_d\n";
        while (defined($file = readdir(DIR))) {
                next if $file =~ /^\.\.?$/; # skip . and ..
                open(FILE, "$opt_d/$file") or die "Couldn't open $file
+: $!\n";
                while (defined($line = <FILE>)) {
                        chomp $line;
                        if ($line =~ /$opt_s/) {
                                $line =~ s/$opt_s/$opt_r/;
                                print "changed $opt_s to $opt_r in $fi
+le\n";
                        }
                }
                close(FILE);
        }
        closedir(DIR);
}
[download]