Select Code to Download

#!/usr/bin/perl
use strict;
...
print "\nline 1: $line1\n";
print "line 2: $line2\n"; 
print "\nvariance: $variance\n";

44444 - 1 1 0 0 0 1 1 1 
55555 - 0 1 1 0 0 1 0 1
...
line 2: 00000000

variance: 1

unpack '%32b*', ( $data[ $first ] ^ $data[ $second ] );

print "\r$.\t" unless $. % 1000;

say "\n", time;