my $bitvec = pack "H*", ($string =~ tr/AGCT/1248/r);