#!/usr/bin/perl
chomp(my @lines = <ARGV>);
for (my $i = 0; $i < @lines; $i++) {
    for (my $j = $i+1; $j < @lines; $j++)  {
        print (($lines[$i] & ~($lines[$i] ^ $lines[$j] =~ tr/\0/\xff/rc)) =~ tr/\0//rd . "\n") if ($lines[$i] ^ $lines[$j]) =~ tr/\0//c  == 1;
    }
}