on *:input:#:{ 
if (/* iswm $1) { return } 
var %a 0, %b, %c 
while (%a < $numtok($1-,32)) { 
inc %a 
%c = $gettok($1-,%a,32) 
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(,%c,) } 
else { %b = %b %c } 
} 
if (!%b) { %b = $1- } 
say %b 
halt 
}

On *:INPUT:#: { 
if ($left($1,1) != /) { 
if ($1 ison $target) { 
msg $chan $+(12,$mid($1,1,1),,,$mid($1,2,$len($1))) $2-
} 
else { 
msg $chan $1- 
} 
halt 
} 
}