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