my $line = unpack "A*", $line;