could also do

#Caps off
on *:input:*:{ 
  if ($left($1,1) != /) {
    haltdef
    say $regsubex($1-,/(\w+)/g,$+($upper($left(\t,1)),$mid(\t,2)))  
  }
} 
#Caps end
menu channel {
  .Turn All 1st. Letter Caps $iif($group(#Caps) = on,Off,On):{
    $+(.,$iif($group(#Caps) = on,dis,en),able) #Caps
    echo -a 1st. Letter Caps is now $group(#Caps)
  }
}