$outdata =~ s{(?<!<!--- )<cfmail}{<!--- <cfmail}g;
$outdata =~ s{</cfmail>(?! --->)}{</cfmail> --->}g;

##</code><code>##

$outdata =~ s{<cfmail}{<!--- <cfmail}g;
$outdata =~ s{</cfmail>}{</cfmail> --->}g;