my $input = 'a6.55.45.0e';;

my( $hex = $input ) =~  tr[.][]d;; ## Remove dots;;

my $revHex = reverse $hex;;

my $packedInt = pack 'h*', $revHex;;

my @tuners;;
vec( $packedInt, $_, 1 ) and push @tuners, $_ for 0 .. 31;;

print "@tuners";;
1 2 3 8 10 14 16 18 20 22 25 26 29 31