Help for this page

Select Code to Download


  1. or download this
    substr($s1, 0, 1) eq substr($s2, 0, 1)
  2. or download this
    ( () = $s1 =~ /(M+)/ ) == ( () = $s2 =~ /(M+)/ )
  3. or download this
    ( my $s1_ = $s1 ) =~ tr/M/\1/c;
( my $s2_ = $s2 ) =~ tr/M/\2/c;
( ( $s1_ ^ $s2_ ) =~ tr/\0// ) >= 5