$re=join("",grep(/^\w$/,split(/(\w)/,"All chars you are prepared to deal with")));