On *:INPUT:*:{
  if ( $left($1,1) !== / ) {
    msg $active 2 $+ $1-
    haltdef
  }
}



From Hooh :o