##!/usr/bin/perl 
use strict; 
use warnings; 
use Inline::Files; 
 
chomp(my $prev = <IN>); 
 
while (my $current = <IN>) { 
    chomp $current; 
    ($prev ^ $current) =~ /^\0+/; 
    my $index = $+[0]; 
     
    printf "%-15s and %-15s have common prefix of %d\n", $prev,$current,$index || 0; 
    $prev = $current; 
} 
 
__IN__ 
AduwoMxita 
AduwoMxirA 
AduwoMxile 
AduwoMxileVMdi 
aa 
abmno 
abpqr 
abxyz 
abc 
abcmno 
abcpqr 
abcxyz 
__END__ 
 
C:\Old_Data\perlp>perl t9.pl 
AduwoMxita      and AduwoMxirA      have common prefix of 8 
AduwoMxirA      and AduwoMxile      have common prefix of 8 
AduwoMxile      and AduwoMxileVMdi  have common prefix of 10 
AduwoMxileVMdi  and aa              have common prefix of 0 
aa              and abmno           have common prefix of 1 
abmno           and abpqr           have common prefix of 2 
abpqr           and abxyz           have common prefix of 2 
abxyz           and abc             have common prefix of 2 
abc             and abcmno          have common prefix of 3 
abcmno          and abcpqr          have common prefix of 3 
abcpqr          and abcxyz          have common prefix of 3