Might be easier to use something like

  $ds = unpack "B*", $data;
  $ps = unpack "B*", $pattern;
  ($x = index $ds,$ps) >= 0 and print "Match at bit offset $x\n";
[download]

Update: how can a 3-line snippet have a bug?