Converts a text file containing hexadecimal representation of a binary file content into a binary file.

hex2bin.pl

use strict;
use warnings;

use 5.014;
use autodie;

do {
    say "Usage: hex2bin <input> <output>";
    exit(1);
} unless @ARGV == 2;

my ($fin, $fout) = @ARGV;

open( I, "<$fin" );
my $line = <I>;
close(I);

$line =~ s/\s//g;
chomp $line;

my @chars = unpack( "(A2)*", $line);
chomp @chars;

open( O, ">$fout" );
print O chr( hex($_) ) foreach @chars;
close(O);