Select Code to Download

use strict;
use warnings;
...
  print "$id2\n" if ((unpack "c",substr ($bin,$id2,1)) == 1);
}
close $fh2;

time perl sp.pl file1 file2 > /dev/null
real    0m0.448s
user    0m0.448s
sys     0m0.000s