undef $/;
$filecontemts=<DEFILE>

##</code><code>##

print "Changing \"$File::Find::name\" file...\n" if ($happens=($file_contents =~ s/$changefrom/$changeto/g));