sub find_replace {
	my $filename = shift;
	open (my $infile, "$dir/$filename") or die "Can't open file: $!";
	my $outdata = "";
	while (<$infile>) {
		$outdata .= $_;
		$outdata =~ s{../CLRIS/}{}g;
		$outdata =~ s{../../menu/}{}g;
		$outdata =~ s{../../Images}{Images}g;
		$outdata =~ s{<cfmail}{<!--- <cfmail}g;
		$outdata =~ s{</cfmail>}{</cfmail> --->}g;
	}
	close $infile;
	open (my $outfile, "+>$dir/$filename") or die "Can't open file: $!";
	print $outfile "$outdata";
	close $outfile;
}