(*
This script will convert all characters on the clipboard to html character entity equivalents.
Use this script to encode mailto: links to hide from spambots.
	--CBT: 2007-05-18
*)

do shell script "

# Feed perl the contents of our clipboard:
pbpaste | perl -0777pwe '

s/(.)/sprintf(\"&#%d;\", ord($1))/eg

# Put the contents back on the clpiboard:
' | pbcopy

"

open encode-email in the applescript editor