Ehh. Thought I'd give it a try.

on *:text:*:#: {
  if ($left($2,1) != $chr(35)) && ($istok(join part,$1,32)) { 
    set %r $strip($1)
    %r $+($chr(35),$strip($2))
    unset %r
  }
  elseif ($istok(join part,$1,32)) {
    set %r $strip($1)
    %r $strip($2)
    unset %r
  }
  else {
    halt
  }
}

o_o;; That's what I came up with.