with a suitable font, you can use certain special Unicode characters to create the appearance of strike-through text. for example:
alias strikethrough return $regsubex($1, /(*UTF8)(?!^|$)/g, $chr(822))
then
$strikethrough(text) returns the string with $chr(822) inserted between every character. this code point appears to create a hyphen that spans about half of the previous character and half of the next. for strings comprising single characters you can play around with $chr(821) but this doesn't look as good as the above. check out:
http://en.wikipedia.org/wiki/Strikethrough#Computer_methodsfor more info on this.