Ack...I did that a long while back. By Looking at it I realize I had a couple of redundancy in the code...lol I believe the /tokenize can be omitted. I see that you've modified it somewhat by yourself. Well, I guess as long as it works for you, Cheiron, that's great. :p
I do, however, come up with this just now:
on $*:text:/^[!@.]((\w{4})( |$)\43.+)/iS:#:{
if !%p { inc -u5 %p | var %x $right($regml(1),-4), %y $left($regml(1),4)
$iif(%y = join,%y %x) | $iif(%y = part,%y %x)
}
}