Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
X(21)Y(49)
X(55)Y(55)
X(-1)Y(33)

Select or download this

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