Select Code to Download

#!/usr/bin/perl
use strict;
...
elsif (0 == $s =~ tr/[IOS]//c) {
    print "case2\n";
}