Oh, thanks a lot...
Now I tried to reverse it (hex->bin), how can I make this?
Okay this was easier than I thought, it did not function because I had a typo:
hex2bin:

my $bin = sprintf "%19b", oct '0x'.$hex;
[download]