use strict;
#use warnings;

sub match {
  my ($lhs, $rhs) = @_;
  print "$lhs == $rhs\n" if $lhs == $rhs;
  print "$lhs != $rhs\n" if $lhs != $rhs;
}

match ('0', '1');
match ('0', '0');
match ('1', '1');
match ('0xxx', '1xxx');
match ('0xxx', '0xxx');
match ('0', 'YYY');
match ('xxx', 'yyy');
match ('yyy', 'YYY');