$ perl -l 650946.pl
X(0)Y(35) match
X(21)Y(49) match
X(55)Y(55) miss
X(-1)Y(33) miss