on *:JOIN:#:{
  set %join $+($left($nick,1),$left($nick,2),$left($nick,3),$left($nick,4))
  if (%join == [BB]) {
    mode $chan +v $nick
  }
}