#find the files I want to change
	
	my @files;
	find(
	    sub {
	        return unless -f;        # Files only
	        return unless  /\.txt$/;  # Name must end in ".txt"
	        push @files, $File::Find::name;
	    },
	    $directory
	);