on *:text:!aolist:#: {
  var %a = 1
  while ($read($chan $+ .txt, %a)) {
    var %s = %s $v1
    inc %a
  }
  notice $nick 3Op access on #
  notice $nick $replace(%s,$chr(32),$+($chr(44),$chr(32)))}
}