Killing a message with extended ascii characters

Can anyone come up with a line of tcl code to identify if a msg contains any character > ascii 127 so I can kill the message?

Cerner Millinneium sent out a trade mark symbol in an NTE which caused the target to die.

Cerner’s solution is to look for trade mark symbols by themselves.

We all know that if they sent a trade mark, next time they’ll send a copy right symbol.

I don’t want to chase these individually but can’t think of an elegant way to scan the message for anything > ascii 127.