printf BIDWATCH '%s', $part->bodyhandle->as_string;

##</code><code>##

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