If all you are looking for is some light weight encoding then the following may be of help:

use strict;
use warnings;

srand 10;

while (<DATA>) {
  chomp;
  print pack ('h2', $_) for /(..)/g;
  print "\n";
}

__DATA__
95f6570286166756023757363656564656460296e602465636f64696e6760247865602
+47568747e2
7556c6c60246f6e656e2
[download]

Replace the pack line with:

  print unpack ('h2', $_) for split '';
[download]

To generate the encoded string.