my $bytes = pack("H*", $line);