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

##</code><code>##

m/I+O+S+M+/