use Test::More;

my %simple = (ss => 'II',
              ssUUss => 'IIMMOO',
              ssDDss => 'OOMMII',
              ssDDssUUss => 'OOMMIIMMOO',
              ssUUssDDss => 'IIMMOOMMII');

for my $input (sort keys %simple) {
    is subst($input), $simple{$input}, $input;
}