>>210
my $search = "ffffffffff";
my $buf = "\x20\x20\x20\xff\xff\xff\xff\xff\x20\x20";
my $data = unpack("H*", $buf);
my $pos = index($data, $search);
print $pos;

実験してみて、6が出るか確認。
出ればreadか、省いた部分に問題がある。