note
diotalevi
<p>You don't need to make a bitstring. Replace input, chunks at a time.</p><c>my %chunkmap =
map { $_ => pack "b*", @charmap{split //,$_} }
map { glob }
map { ("{A,C,G,T}" x $_) . ("A"x(4-$_)) }
1..4;
$string =~ s/(.{1,4})/$chunkmap{$1}/g;</c>
<div class="pmsig"><div class="pmsig-194920">
<p>⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊</p>
</div></div>
735223
735223