Since only characters are involved you can use tr///:

while (<$in>) {
   tr/\x00\x17\x4E\x42\x24\x90/\x17\x00\x42\x4E\x90\x24/;
   print $out $_;
}
[download]