$string =~ tr/\s'/_/d;