opendir(DIR,"kennel");
while ($file = readdir(DIR)) {
	next unless $file =~ /cat/;
	my $newfile = $file;
	$newfile =~ s/cat/dog/;
	rename($file, $newfile) || print "Don't have permission to rename.\n";
}

closedir(DIR);