open BIN_IN, "<test.elf";
binmode BIN_IN;

   read(BIN_IN, $stuff, 1000,0);
   if ($stuff =~ /7F/) {print "got it!\n";}

   @tmp = unpack("(H2)*", $stuff);
   foreach $h (@tmp) {
      print "$h ";
   }

close BIN_IN;