OK, so maybe writing a perl script over the holiday WASN'T my greatest idea, but...(the honey-do list not withstanding) I had a super time. Now it's back to questions...
FunkyMonk- I tried your suggestion & had some success, but it seems I don't get the proper result when I try to use something like my $x = ob01001001. I'm on a windows XP box, would that make a difference? I'm trying to print a 12 byte UPC Code from a 6 byte BCD field. I think I understand the shifting (>>) of the 4 bits, but when I try $hi=($x & 0b11110000).. 4; I think I need to "OR" it with 0x30 inorder to get the ASCII digit. ie 0101 0000 shifted = 0000 0101, then an ASCII digit of 5 would actually be 0x35 or 00110101, am I way off here? Then I would join the 12 bytes into a string for printing. When I OR it all I end up with is the 0x30 or 48dec.
Thanks for the help, & your patience. BTW I have 2 perl books - the Gecko & the Black Panther. I'm thinking I neeed one in between. Does anyone recomend the camel vs llama books (I can only afford ONE of them right now.) Thanks.