my $str = "*010 3 476.8 9.84 4691 240.4 16.48 3973 50 3937 ";
say unpack("%8C*", ($str =~ /\*([^ ]+) /)[0])