1st part

The spaces are NOT needed. I put them in so it was a bit easier to spot, sorry.

2nd part

on *:text:$($+(*,$gettok($replace($me,|,?,_,?,~,?,[,?,],?,$({,),?,$(},),?),1-,63),*)):#:{

add or remove what ones you dont need.