Select Code to Download

my @in = grep length $_, split(/(..)/, $string);
shift @in;  # just 1 shift to pull off '0x'
my $bytes = scalar(@in);  # no longer need the div by 2