Select Code to Download

#!/usr/bin/perl

...
                say "$1$2$3 matches, but is not wanted ($1 + 1 != $3)"
+;
        }
}

1x1 matches, but is not wanted (1 + 1 != 1)
3B4 is wanted because 3 + 1 = 4
6t7 is wanted because 6 + 1 = 7