Stuff

if ($left($1, 1) !isin $+(/,$readini($mircini, text, commandchar))) {
  var %w = 1              
  var %text               
  var %acro = <acronym>
  while ($gettok($1-, %w, 32) != $null) {
    var %word = $ifmatch
    if ($hget(acronym, %word) != $null) var %text = %text $replace(%acro, <acronym>, $ifmatch)
    else var %text = %text %word
    inc %w
  }
  msg $chan %text
  halt
}