Since I'm not too familiar with pack, I'd do it this way:

my $out = join '', map { chr hex } split /\s+/, $line;
[download]