use warnings;

open RD, '<', 'packstr.txt' or die "Opening: $!";
binmode(RD);
$p = <RD>;
close RD or die "Closing: $!";

print unpack("H*", $p);