Select Code to Download

 #!/usr/bin/perl
  use strict;
...
    $result = index($string, $char, $offset);

  }

$string = 'IIIIMMMMMMMOOOOOOOOOOMMMMMMMMMMMMMMMIIIIIIMMMMOOOO';