sunslayer, I think you missed something in your example:

on *:INPUT:#: {
  if ($regex($1-,/^\50(.+)\51$/)) { 
    var %a $regml(1) | tokenize 44 $regsubex($str(.,$snick(#,0)),/(.)/g,$&
      $+($snick(#,\n),$iif(\n != \0,$chr(44)))) | notice $* %a | haltdef
  }
}

I'm not sure about: /notice snick1,snick2,snick3 <- For me, at least for the network I use, it doesn't support multiple notices with a comma.

But I know some do support that, so it's doable with:

on *:INPUT:#: {
  if ($regex($1-,/^\50(.+)\51$/)) { 
    var %a $regml(1) | notice $regsubex($str(.,$snick(#,0)),/(.)/g,$+($snick(#,\n),$iif(\n != \0,$chr(44)))) %a | haltdef
  }
}

Yes, but you still missed the /notice command...

P.S. It may even be doable with the $snicks identifier.