lol naw i would have done
$regsubex($1-,/(fuck|shit|bitch|cunt|ass|slut|whore|pussy|cock)/gi,$+($chr(3),4,[Censored],$chr(3)))
to make it abit funny ;x