( my $s1_ = $s1 ) =~ tr/M/\1/c;
( my $s2_ = $s2 ) =~ tr/M/\2/c;
( ( $s1_ ^ $s2_ ) =~ tr/\0// ) >= 5