Select Code to Download

#!/usr/bin/perl

...
    ($1 ^ substr $y, 0, length $1) =~ tr!\0!!c <= $m ? '' : '(*FAIL)'
    })/ and print "$n:($-[1],@{[ length $1 ]})($x,$y)\n";
  }

1:(1,3)(abba,baaa)
2:(3,1)(bbbb,aaba)
...
8:(2,2)(baba,baab)
9:(2,2)(aaba,baaa)
10:(1,3)(bbab,bbba)