Aside from the name-calling, here is my take on the join and part:

on $*:TEXT:/[.](\w+)/iS:#: {
  $iif($left($2,1) = $chr(35) && $regml(1) = join,$v2 $2)
  $iif($left($2,1) = $chr(35) && $regml(1) = part,$v2 $2)
}