$string =~s/[\w\d \.\-]{3,}//ig;