$s = $part->bodyhandle->as_string;
$s =~ s/%/%%/g;
printf BIDWATCH $s;