on *:INPUT:#:{ 
  if ($left($1,1) == /) {
    goto skip
  }
  var %input = $replacecs($replace($1-,didnt,didn't,cant,can't,dont,don't,isnt,isn't,wont,won't),$+($chr(32),i,$chr(32)),$+($chr(32),I,$chr(32)))
  if ($right(%input,1) != ?) && ($right(%input,1) != !) {
    msg $chan $upper($left(%input,1)) $+ $right(%input,-1) $+ .
    halt
  }
  else {
    msg $chan $upper($left(%input,1)) $+ $right(%input,-1)
    halt
  }
  :skip 
}