my $stuff = '0000101001011100010101100100100101001111001111110010010001110110';
my $bytes = pack('B64', $stuff);
my ($prefix, $tail) = unpack('a4a*', $bytes);

print ">$prefix<\n>$tail<\n";