$newname =~ tr/a-zA-Z0-9\.//cd;