Select Code to Download

use strict;
use warnings;
...
while (-1 < ($start = index $diff, 'x', ++$start)) {
    print "Difference at $start\n";
}

Difference at 22