#!/usr/bin/perl -w
use strict;

open ( SOMEFILE, '<', "$ARGV[0]" )
    or die "Can't open $ARGV[0] for reading.\n";

while (defined($_ = <SOMEFILE>))
    {
    my @cbytes = split;
    my @hbytes = map(hex, @cbytes);
    my $hstring = pack('c*', @hbytes);
    }

close SOMEFILE;

##</code><code>##

99 00 00 00 dd 02

##</code><code>##

Character in 'c' format wrapped in pack at ./test.pl line 11, <SOMEFILE> line 1.
Character in 'c' format wrapped in pack at ./test.pl line 11, <SOMEFILE> line 1.