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