Perl Scirpt:
my $find_packed = pack "H*", '0100000000000000FF0A16731485400000000000FFA10201FF22FFFFFFFF0200';
my $repl_packed = pack "H*", '0100000000000000FF0A16731485400010FFC545FFA10201FF22FFFFFFFF0200';
my $file = do { local $/; <> };
$file =~ s/\Q$find_packed/$repl_packed/g;
print $file;
Uso:
perl hexreplace.pl in_binary > out_binary
A versão não polida acima parece ter funcionado para mim, graças aos caras em #perl
em freenode: -)