Select Code to Download

#!/usr/bin/env perl 
use strict;
...
$s .= 'M';

print "$s: " . ($s =~ tr/M/M/ ? "case1\n" : "case2\n");