if (0 == $s =~ tr/IOSM//c) {