alias stripbg {
if ($pos($1-,$chr(3),0)) {
var %idx 0, %str $1-, %result, %num, %word
while (%idx < $numtok(%str,32)) {
inc %idx
%word = $gettok(%str,%idx,32)
if ($left(%word,1) == $chr(3)) {
%num = $gettok($remove($mid(%word,1,6),$chr(3)),1,44)
%result = %result $+($chr(3),%num,$strip(%word))
}
else { %result = %result $strip(%word) }
}
return %result
}
}