$pat = "([\!]|[\;]|[\(]|[\)]|[\]|[\$]|[\#]|[\<]|[\>]|[\*]|[\%]|[\~]|[\^]|[\|]|[\{]|[\}]|[\\\]|[\.]|[\,]|[\:]|[\?])";