Select Code to Download

[b][o][o][k]
[r][e][b][o][o][t] 
[r][o][c][k][e][t]

#compare the (s)source patterns
for ( my $i=0 ; $i<$row ; $i++ )
...
           if (s1[i][j]==s1[i+1][j+1]){print "$i,$j\n";
           }
        }