#!/usr/bin/perl

open(FIND, "find . -print |") || die "Couldn't run find: $!\n";

FILE:
while ($filename = <FIND>) {
    chop $filename;
    next FILE unless -T $filename;
    system("perl -pi s/Copyright \(C\) 1998/Copyright \(C\) 1998-2000/");
    print $filename, "\n";
    next FILE;
}